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PARSE Wt 

BOOSFILES = Parse file spec 

BOOSUSECUR = Use parameters from current im 

BOOSSHOWYV = a to show one parameter value 

BOOSNOCHECK = Disable value checking 

BOOSNOCHECK = Disable value checking 

BOOSSEARCH = Lonkup parameter name 

BOOSSETVALUE = Store parameter value 

BOOSSETASCII = Action routine to set ASCII parameter type 

BOOSSHOVALUE = Action routine to show single value 
SSHOALL = Action routine to show all parameter values 
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Facility: System generation and initialization 


Abstract: SYSBOOCMD is the interpreter for parameter modification 
coanends both at bootstrap time and as part of the sysgen utility 


Environment: 

Both SYSGEN and SYSBOOT environments. 

REET KeKeeeeeeaekeeeaeeaeaaesixz 

WARNING: SYSBOOT code must be PIC 

SHEET eeeeeeeeeseekeeeaeeeeeeraae 
Author: RICHARD I. HUSTVEDT, Creation date: 4-MAY-1978 
Modified by: 
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v03=026 wHMOO?T BiLL Math 01-aug-1984 
Fix SET/STARTUP bug from VOS-024. cet 


v03-025 wHM0010 eit 23-Jul-1984 
Shen one MSCP qual ae *thArt to /MINIMUM and /FRACTION to 


v03-024 " HMO009 Bill Matthews 19-Jun-14 
Fixed LOAD<CR> accvio. Fixed SET go ! tparoneter bug. 
Now allow an optional : and = in SET/STARTUP filespec. 
Now allow optional : in device name of the CONNECT command. 


v03-023 wHM0008 Bill Matthews 20-Apr-1984 
fixed SET of an ascii parameter to DEFAULT bug. 
Removed USE CURRENT that read SYSGEN aoranetete from SYS.EXE. 


v03-022 wHM0007 Bill Matthews 11-Apr-1984 
Removed the QUORUM command. 
V03-021 WHMO006 Bill Matthews 04-Apr-1984 
eeees neeers for sysgen ascii parameters Longer than 4 
characters. 
Added support for a seperate default system parameter file. 
v03-020 JLV0342 Jake VanNoy 3-APR-1984 
Add TERMINAL/ECHO command. 
v03-019 wHMO000S Bill Matthews 14-Mar-1984 


Conditionally assembled TPARSE tables for, SYSBOOT. 
Change ascii input specifier from ZA t 
Output header for display of a a. A, poreneter value. 


v03-018 ences. Bill Matthews 13-Mar-1984 
Move Softaline of BOOSGL_LOAD_ARGS from this module 
to SYSGEN.MA 
v03-017 WHM0003 Bill Matthews d 23-Feb-1984 
Add support for loading and starting the MSCP server. 
v03-016 WwHM0002 Bill Matthews 01-Feb-1984 
Add support for SHOW/LGI. 
v03-015 ACG0392 w C. Goldstein, 19-Jan-1984 22:40 
Tie off SYSSFILESCAN' ter TPARSE use 
v03-014 WHMO001 Bilt Matthews 14-Dec-1983 
Add /REMOTE and /LOGICAL switches to the CONNECT CONSOLE command 
Add /VECTOR_OFFSET and /CSR_OFFSET to the CONNECT command 
v03-013 wacoots Wayne Cardoza 01-Dec-1983 
low arbitrary Pete of Tnstalt qualifiers 


v03-012 JLVv0311 10-OCT-1983 


Fix SHOW/ALL to aes A *SHOU/ALL. 


v03-011 $RB0103 Steve Beckhardt »9-Sep-1983 
Added temporary QUORUM command. 
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v03-010 8LS0239 Benn Schreiber 13-Sep-1983 
Use TPAS_SYMBOL for %A so that '$' and '_" are allowed. 
v03-009 ACG0345 Andrew C. Goldstein _)-Aug-1983 16:53 * 
Add dummy SYSSASCTOID routine for TPARS ; 
v03-008 ae Maryann Hinden 13-Jul-1983 


Don't need to echo input anymor 
Set ascii parameters correctly i smaller than a longword. 


vV03-007 MSHO004 morons Hinde 24-Jun-1983 


Change SBOODEF to SBOOCMDDEF. 

V03-006 MSHO003 Maryann Hinden 10-Jun-1983 
Use SBOODEF. 

V03-005 MSHO002 Maryann Hinden 14-Apr-1983 
Teach SYSGEN to speak ASCII. 

V03-004 MSHO001 Maryann Hinden 24-Mar-1983 


Preserve values for system time and base registers 
across USE DEFAULT “ene USE CURRENT commands. 


V03-003 DWT0086 David W. Thiel 22-Mar-1983 

Add PRM$M_CLUSTER to SHOW/ALL mask. Add 

SHOW CLUSTER” 
v03-002 wmMC0001 Wayne Cardoza rag ate 

Add support for the /checkpoint qualifier on install /page 
V03-001 JLV0196 Jake VanN 17=MAR-1982 

Add new parsing for CREATE. Add PRMSM_SCS, PRMSM_TTY 

and PRMSM_SYSGEN to SHOW/ALL mask. Change * BOOSSEARCH 


to return no such parameter if a search for a zero 
length parameter is passed in. 


> Include files: 


SBOOCMDDEF : Flag bits in command options longword 
SCLUBDEF ; Cluster block offsets 

SIPLDEF ; IPL defs 

SPRVDEF 3 <b definitions 

SPCBDEF ; PCB offse 3 

SPRMDEF 3 boreneter “Soccrtoter definitions 
SSSDEF ; System pete pe me 

SSYSGMSGDEF 3; Sysgen me noges 

STPADEF : Define TPARS symbols 


; Macro to print message 
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message_text 


eeeee 
ow =z 
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MSG,STR 
BOO$F ACMSG 
\'STR'\ 
MSG 


Equated Symbols: 


CR=1 
FF=1 
LF=1 
BUF FER_SIZE=256 
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Character value for carriage return 
Character value for form feed 
Character value for Line feed 
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-SBTTL PARSE TABLES 
DEFINE COMMAND SYNTAX 


SINIT STATE STATET,KEYTBL =; 

STRAN 'DISABLCMD La ent’ 3; Disable option command 

STRAN ty pe D, TPA : Enable Rey command 

STRAN ‘HELP TPAS. ert xho0sGivEH HELP elp command 

$TRAN 1 SETCMB  TPAS EX if 3 Set specific value 

STRAN ; SHOCMD, TPAS “EMIT : wy ov pee 

STRAN :USECMD *TPAS” EXIT baser'e value 

STRAN ‘EXIT’, TPAS sexIT. .Boocmpsm: font *BOOScL CMDOPT ; Same as continue 
If NDF ,CMD YSBOOT s sere ti commands 

STRAN CONT INUE', TPAS _EXIT, ,BODEMDSAL CONT ,BOOSGL_CMDOPT ; Continue command 
oIFF HAE specific commands 

STRAN frog: TPA$_EXIT,BOOSCONADP ; Set adapter TR number 

$TRAN CTCMD, TPAS_EXIT,BOOSCONNECT ; Connect command 

$STRAN iCREATECHD. TPA AS_EXIT,BOOSCREATE ; Create Cmocqege/tuse file 
STRAN 'INSTALCMD, TPAS_ EXIT ,BO0S INSTALL: poy swap/page file 

STRAN ‘LOADCMD, TPA ate BOOSLOAD oad driver 

STRAN ‘RELOADCMD, TPAS EXIT BOOSRELOAD Reload driver 

STRAN iMSCPCMD,TP IT Boos : Load and start the MSCP server 
STRAN ‘iSHARECMO, TPAS te inare command 

STRAN iWRTCMD, TPAS ERI : Write parameter file 

STRAN ‘'AUTOCONFIG, TPAS_EXIT Auto-configure command 

STRAN ‘CONFIGCMD, TPAS EXIT BOOSCONF 1 GYRE 

STRAN iTERMINALCMD, TPAS_ Exit : terminal command 

STRAN TPAS_EOS,TPAS_EXIT : END OF LINE 


; Disable command 


SSTATE DISABLCMD ; Disable command 
STRAN ‘DISABLE’ : Command verb 
SSTATE ; 
STRAN "CHECKS", TPAS_EXIT ,BOOSNOCHECK 
Recognize ENABLE command 


SSTATE ENABL CMD ; ENABLE command 
Hh ENABLE‘ 3; Command verb 


STATE ; 
STRAN ‘CHECKS’, TPAS_EXIT,BOOSCHECK : 


; Disable value checking 


Recognize SET Command 


SSTATE SETCMD SET command 
STRAN a ie 


Command verb 


STATE 
STRAN ‘'/',SETSPEC 


SYSGENCMD Command 
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45 TRAN §*,*, ,BOOSDOT : Use last name 
*$ he TPag ~oianaagememene 3 fame and verify symbol name 
‘3 TRAN iNUMBE TPAS_EXI 1 = A ASCII string 
4 "RAN R, TPAS ir soosstti) ALUE fy and set value 
Thane Der f* , TPRS_EXIT ,BOOSSETDEF ‘i to default value 
TRAN ; Sets aw 1 as exit 3 Set startup file name 
; TRAN 'SETOUTPUT, fPAS_EXI ; Set output filespec 
5 SSTATE ASCII 
§ ih . - TPASM_BLANKS ,PARMBLK*+TPASL_OPTIONS; Make blanks significant 
33 STRAN SYMBOL -BOOSSETASCII 
TRAN TPAS” BLANK, SYMBOL ignore blan 
60 TRA see TPAS “EMIT, BOOSSE TBLANK ; mult sarion => all blanks 
61 SSTATE 
6¢ TRAN *"** , TPAS_EXIT 
64 SSTATE SETOUTPUT 
65 STRAN OUTPUT 
6 SSTATE 
6 STRAN !SEPARATOR s2or: 
6 STRAN TPAS_LAMBDA : Or null 
$ SSTATE 
y STRAN 'FILESPEC 
7 SSTATE 
4 STRAN TPAS_EOS, TPAS_EXIT,BOOSSET_OUTPUT 
74 SSTATE SETSTARTUP 
75 STRAN STARTUP’ 
7 SSTATE 
7 STRAN ‘SEPARATOR see 3 
7 STRAN TPAS_LAMBDA : Or null 
7 SSTATE 
80 STRAN 'FILESPEC 
+ SSTATE 
Ht STRAN TPAS_EOS, TPAS_EXIT ,BOOSSETSTART 
4 ; 
$3 Recognize SHOW Command 
$ SSTATE SHOCMD ; SHOW command 
8 STRAN SHOW’ : Command verb 
SSTATE SHOSWITCH : 
STRAN g* $ 
91 STRAN *.* ,SHOWONE ,BOOSDOT ; SHOW . ’ 
3 STRAN TPAS_ SYMBOL. SHOWONE , Boosie ARCH : Lookup and verify symbol name 
94 $TRAN "HEX", SHOSWITCH, ,BOOCMDSM_DISHEX.BOOSGL _CMDOPT 
95 STRAN "ACP" ,HEXQUAL2,,,.PRMSM_ Ate; SHOW/A cP 


9 
99 Note that PRMSM ait Gesen" t exist in SPRMDEF. 
38 3 @ flag to BOOSSAOAL 


90 PRMSV_ALL = 31 
PRMSM~ALL = T@PRMSV_ALL 


It is used here simply as 


| 9 
Wecboo” wm ba ese =13be 9:88:97 HeCaYe sRessostocceo.man:1 "2% c7, 


; 
TRAN ‘ALL’ ,WEXQUAL2,... SHOW/AL 

| TRAN ‘RE s MENUAL pi a <PRNGA AA: SHOW/ 

| TRAN SCS" HEXQUAL pbvectncses 

| TRAN *SPECEAL® HEX hee “§ CIAL>: | SHOW/SPECIAL 
TRAN "SYS" ,HEXQUAL mr SS; SHOW/SYS 
TRAN ‘GEN’, HEXQUAL oo CORMSR cine ye Aw (Sysgen Parameters) 
TRAN 7208) XQUALO,,..<PRMSM_JBC>; Si0u/JOB (Job controlter) 
TRAN ‘POQL*,HEXQUAL2,,,,<PRMSM_POQL>; SHOW/POL (Process quota List) 
TRAN ‘TTY’ ,HEXQUALC,,,,<PRMSM_TTY>; SHOW/TTY 
TRAN rbGle H <PRMSM“LGI>: SHOW/LGI 
TRAN CLUSTER’ HEXQUAL2, . , .<PR ELUSTER> |: SHOW/CLUSTER show cluster 
TRAN ‘WAMES',T HONAMES ; SHOW/ S show parameter names 
TRAN ‘MAJOR’ HEXQOAL 2 <PRMSM_MAJOR> SHOW/MAJOR show major para 
TRAN ‘DYNAMIC’ HEX QUAL: <PRMSM _DYNAMIC>; sHOw/DYNAMIC show dyn. params 
TRAN “STARTUB®, TPAS_EXIf * BOOSSHOSTAR ART i SHO STARTUP Show startup file 


1f oF CMOSW YS ge lifiers 
$TRAN ADAPTER’ TPAS EXIT, B00S SHOW apabiea’s i$ 
TRAN CONFIGURATION’, SHOWCON,BOOSRESET_IO ; SHOw/ CONF | CURATION 


TRAN !SHOW UNIBUS, TPAS_EXIT 37 /7UN 
STRAN iDEV_OR_DRIV, TPAS_EXIT ; /DEVICES and /DRIVER 
SSTATE SHOWONE SHOW value_name 
STRAN TPAS_LAMBDA,TPAS_EXIT, BOOSSHOVALUE ; 


SSTATE WEXQUAL2 
STRAN tHE KOUAL . TPAS_EXIT ,BOOSSHOALL 
SSTATE WEXQUAL 
STRAN “— 
STRAN. TPAS_LAMBDA, TPAS_EXIT 
STRAN *"HEX® , TPAS_EXIT, ,BOOCMDSM_DISHEX,BOOSGL_CMDOPT 
; Recognize USE command 
: SSTATE 
STRAN 


USECMD : 
USE",, ,BOOCMDSM_USEF ILE .BOOSGL_CMDOPT ; 


STRAN 'USEDEF ; 
iFILESPEC, ,BOOSUSEFILE ;: 
TPAS_LAMBDA,TPAS_EXIT 


T USECUR : USE CURRENT 
a; CURRENT’ 
RAN TPAS_EOS, TPAS_EXIT ,BOOSUSECUR 


TATE USEACT ; USE ACTIVE 
ACTIVE’ 


T 
RAN TPA$_EOS, TPAS_EXIT,BOOSUSEACT 


PUPP EB BS EE 
DWNANE WO ODNOU EW OO@ 


eee ee 


] 


<v 


seen 


PPPOE PPP EEE EEE 


§ 3 
5 
8 
i i 
i 
15 


tor svscen = * 1g~$EP~1984 00:08:07 YAX/VHS Macro. v04=00 Page 8 
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STATE ; USE DEFAULT 
trans “OEFAULT® ee 
TRANS TPAS_EOS, TPAS_EXIT, ,BOOCMDSM_DEF AULT ,BOOSGL _CMDOPT : 


File Specification 


STATE FILESPEC ENER 


AL FILE SPEC CHECK 
TRAN TPAS_LAMBDA,TPAS_EXIT, pods! ILESPEC 


RECOGNIZE NUMBER 
estate — R 


DECIMAL, TPAS_EXIT ; DECIMAL NUMBER 
man + BASE PREFIX 
Sinan "x" ,HEXNUM ; HEX BASE DESIGNATOR 
STRAN ‘0° + OCTAL NUMBER 
$TRAN TPAS OCTAL,TPAS_EXIT |; INTRODUCED OCTAL NUMBER 
SSTATE + INTRODUCED HEX ER 
$TRAN TPAS _HEX, TPAS_EXIT : HEX NUMBER 


: RECOGNIZE SWITCH/VALUE SEPARATOR 


estate FEpARAvoR 3 
STRAN - TPAS_EXIT ; 
STRAN °:", TPAS” EXIT : 


; Get a numeric qualifier value 


estate ; Get value for option 


VALUE 

'SEPARATOR 

NUMBER, TPAS_EXIT 
IF DF ,CMDSW 

Adapter command 


SSTATE ADPCMD ; Command to set adapter TR number 
STRAN "ADAPTER" , ,BOOSRESET_ADAP ; Command verb 


: Numeric value 
: Generic Name 


7SYSGEN specific commands 


N '!NUMBER,TPAS at 
STRAN ‘ADAP_STR,TPAS_EXIT 
Autoconfigure command 


SSTATE AUTOCONFIG 
$TRAN *AUTOCONF IGURE', ,BOosRESETLIST 


*ALL* CONF IGALL 


bey ha command 
Command verb 


F Configure all 


SYSGENCMD - Command 
PARSE TAB 
| 41 
| oi 
| t18 
420 
0 421 
0 4 i 
00 4 
000 4246 
00 425 
333i 
$00 458 
44 429 
000 430 
44 431 
000 4 ¢ 
0000 4 
0000 434 
0000 435 
0000 $36 
0000 $3 
0000 438 
0000 439 
0000 440 
0000 441 
0000 ae 
0000 44 
0000 444 
0000 445 
0000 446 
0000 447 
0000 448 
9444 449 
000 450 
0000 451 
0000 $36 
0000 45 
0000 454 
44 455 
000 $26 
444 45 
$38 a8 
$000 480 
0000 461 
0000 46 
0000 46 
4 464 
00 465 
0000 46 
4 46 
00 468 
000 469 
000 470 
000 471 
000 472 


arsing for SYSGEN 
1 tit 
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iADAP_STR2 ; 
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Configure one TR number 
Generic Name 


!AUTOOPT , TPAS_EXIT,BOOSCONF I GONE ; 


CONF IGALL 


!AUTOOPT , TPAS_EXIT ,BOOSCONF IGALL : 


AUTOOPT ; 
v7 


TPAS_LAMBDA,TPAS_EXIT 


LOG’ ,AUTOOPT 
"SELEC 


T 
"EXCLUDE". , .BOOCMDSM~EXCLUDE ,BOOSGL_CMDOP 


! SEPARATOR 
te 


TPAS_LAMBDA 
SELECTLIST ; 


TPAS_SYMBOL, ,BOOSMAKLIST 
*)* ,AUTOOPT 
TPA$_LAMBDA, AUTOOPT 


<','>,SELECTLIST 
TPAS_LAMBDA, SELECTLIST 


: CONFIGURE command 


SSTATE 
STRAN 
SSTATE 
STRAN 
STRAN 
SSTATE 
STRAN 
STRAN 
SSTATE 


CONF IGCMD 
* CONFIGURE’, ,BOOSRESET_10 


CONFIG LIST 
TPAS_LAMBDA, TPAS_EXIT 


CONFIG_LIST 
CONFIG OPT, CONFIG LIST 
TPAS_LAMBDA, TPAS_ERIT 
CONF 1G_OPT 

a ad 

' INPUT, TPAS_EXIT 
iouTPuT, TPAS_ EXIT 
iRESET, TPAS_EXIT 


INPUT 
* INPUT’ 


' SEPARATOR 


Select option 
Switch introducer 
Else not specified 


BOOCMDS$M_AUTOLOG,BOOSGL_CMDOPT ; LOG DEVICES 
T’ ,,,BOOCMD$M_SECECT,BOO$GL_CMDOP 


Option name 
Reverse sense of select 


: or = 


; Allow perentieces 
; But ma 


e it optional 


Device selectlist 
inal Select string 


nd 
Else end of List 


Another option in List 
Else end 


; Reset I0 and AUTORESET of devices names 


'FILESPEC, TPAS_EXIT ,BOOSINPUT_FILE 
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LBS ° ya ets 90308334 teoors sre SYSBOOCMD .MAR; 1 . (1) 
473 
474 SSTATE OUTPUT 
475 STRAN *OUTPUT’ 
ors SSTATE 
47 STRAN ‘SEPARATOR 
$28 SSTATE 
t4 4 STRAN !FILESPEC,TPAS_£%!i ,BOOSOUTPUT_FILE 
481 SSTATE RESET 
4 ¢ STRAN ‘RESET’, TPAS_EXIT ; No action,this is the default 
483 STRAN  ‘NORESET’, TPAS_EXIT,BOOSNO_RESET’; Turn reset off this call 
i 
48) ; Create command - Create contiguous file for paging, swapping or system dump 
489 ° SSTATE CREATECMD ; 
490 STRAN ‘CREATE’ 3; Command verb 
491 SSTATE CREOPT ; Create options 
49 STRAN ‘/',CREATE_QUAL : 
49 STRAN 'FILESPEC, CREOPT BOOSSE TF ILNAM: Set name of file 
494 STRAN TPAS_EOS, TPAS_EXIT : 
49 SSTATE CREATE_QUAL : 
49 STRAN ‘CONTIGUOUS’ CREOPT ,BOOSCRECONTIG : Contiguous 
498 STRAN *NOCONT IGUOUS * , CREOPT ,BOOSCRENCONTIG ; Set non-contiguous 
+44 rte *SIZE' 3; Get the allocation size 


STRAN !VALUE,CREOPT,BOOSFILESIZE ; Set file size 
: Connect command - Connect specified device and load driver if required 


SSTATE CONECTCMD ; 
*CONNECT’, ,BOOSCONRESET 


STRAN ‘REMOTE’ TPAS EXIT, ,BOOCMDSM REMOTE ,BOOSGL CMDOPT; Connect remote co 
STRAN ‘LOGICAL’, TPAS EXIT 


BOOCMDSA_LOGICAL ,BOOSGL_CMDOPT; Connect Logical 
STRAN TPA$_LAMBDA, TPAS_EXif 


501 
288 
50 
504 
505 3 
506 TRA 3; Command verb 
507 SSTATE 3 
508 STRAN ‘CONSOLE’ ,CONSOLCMD : Connect console command 
509 STRAN TPAS_SYMBOL,,BOOSDEVNAME; Device name 
510 SSTATE 3 
511 TRA $,* sallow an optional *':" 
21¢ TRA TPAS_LAMBDA 3 
51 SSTATE CONOPT ; 
514 STRAN !CONECTOPT,CONOPT 3; Connect option 
1? STRAN TPAS_LAMBDA,TPAS_EXIT Hy 
" 3; Connect console command 
19 $SSTATE CONSOLCMD 
Y STRAN 'CONSOLOPT, TPAS_EXIT ,BOOSCONSOLE; 
¢ SSTATE CONSOLOPT 
STRAN ll pe 
4 STRAN TPAS_LAMBDA, TPAS_EXIT 
‘ SSTATE 
529 


c— 
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| SYSGENCMD = Command parsing for SYSGEN 16-SEP-1984 8:07 VAX/VMS Macro 04-00 Pa 11 : 
/v06 PARSE TABLES e-SEp-1986 93:08:51 LeooYs:snessvsboccnD.mar:1 "28° UY, . 
| ; Recognize INSTALL command | 
: SSTATE INSTALCMD ; 
TRAN INSTALL’ : 
SSTATE 3 
STRAN A pts scone 
SSTATE : 
STRAN 3; Switch introducer 


TRAN ‘PAGEFILE', 8008 i {PGFL 
RAN "SWAPFILE® INS, 
RAN * CHECKPOINT 
RAN eet ceboint SrA ADAGE. BOOSNOCHKPNT 


RAN ‘/* 3; look for the checkpoint switch 
RAN TPAS_EOS,TPAS_EXIT 


STRAN ‘CHECKPOINT’, TPAS EXIT 
$TRAN NOCHE CKP POINT’ , TPAS_EXIT,BOOSNOCHKPNT 


mn oe 
TPAS_EOS, TPAS_EXIT 
Recognize LOAD command 


SSTAte LOADCMD 
STRAN ‘LOAD’, ,BOOSCONRESET; Commend verb 


SSTATE 

dha 'FILESPEC, TPAS_EXIT ,BOOSCONDRVNAM 
STRAN TPAS_LAMBDA,MSCP 

Recognize MSCP command 


SSTATE MSCPCMD ' ; 
STRAN ‘MSCP_LOAD', ,BOOSMSCP_RESET ; Loading and starting the MSCP server 


TRAN !MSCPOPT, 


COOoOoOoOoooooooooooooooo 


SSSSSSSSSSSSsSsssss 
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SENN NA AAAAAAAA AMIN SB PPP ELLE 
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m 
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QV IVLIVIVLVLELVDIV LIV LVDVLIV IVIL LIVIULVIVLUSUSUSIUSVSUSTUSVUSUSUSUSUSISISISISITIIUS 
~ 


MSCP 
TRAN TPA$_LAMBDA, TPAS_EXIT 
SSTATE MSCPOPT 
TRAN 
7 SSTATE 
7 STRAN 'MSCP_BUFFER, TPAS_EXIT ,BOOSMSCP “anes 73 :BUFFERS IS PARAMETER 2 
00 7 STRAN 'MSCP"PACKET.TPAS EXIT ,BOO SMSCPE ARG. PACKET 1S PARAMETER 3 
00 7 STRAN iMSCPHOSTS, fPAS EXIT, B00$ OSTS IS PARAMETER 4 
00 STRAN ‘MSCPTTIME OUT, TPAS_EXIT 9500 OSSMSe Reich jWpels OUT IS PARAMETER 5 
00 80 STRAN iMSCP “PRIORITY TPAS “EXIT sBOOSHSCP ARG, ..6:PRIORITY IS PARAMETER 6 
00 1 STRAN i MSCPT =SMALL TPAS EXIT, BOOSMSCP_ARG,,,? :SMALL IS PARAMETER 7 
000 é STRAN ‘iMSCP"FRACTION, TPAS EXIT BOOSMSCP ARG,..8:FRACTION IS PARAMETER 8 
0 $TRAN i OADRRGENT TP PAS EXT BOOSMSCP_ARG,,.0  ; ARGUMENT COUNT 
2093 4 STRAN !LOADP1,TPA$_EXIT,BOOSMSCP_ARG;,,1 [LOAD PARAMETER 1 
000 6 SSTATE MSCP_BUFFER 


-—-_-+--—-- -- -— — 
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‘foe 506 PARSE TABLES or8Eb= 198 89:06:51 Lepore saeisvstoocho.man:1 "29° ff, 
0 7 TRAN ‘BUFFER’, VALUE 
if § TRAN po" VALUE 
}" 
D0 SSTATE MSCP_PACKET 
OC 3 STRAN. "PACRET- VALUE 
3 STRAN ‘P3*, VALUE 
fi 9% SSTATE MSCP_HOSTS 
0 95 STRAN "HOSTS" VALUE 
3 STRAN 'P4", VALUE 
38 SSTATE MSCP_TIME_OUT 
$TRAN pane OUT*, VALUE 
600 STRAN ‘P5', JALUE 
60¢ SSTATE MSCP_PRIORITY 
6 STRAN PRIORITY’ , VALUE 
ope STRAN ‘P6', VALUE 
60 SSTATE MSCP_SMALL 
60 $TRAN AINTRUA VALUE 
60 STRAN 'P7", VALUE 
610 SSTATE MSCP_FRACTION 
611 STRAN ‘MAXIMUM’, VALUE 
61g STRAN "PB", VALUE 
614 SSTATE LOADARGCNT 
615 TRAN ‘ARGCOUNT', VALUE 
gi5 SSTATE LOADP1 
618 STRAN ‘P1", VALUE 
000 61 
$3330 
0900 ? § : Recognize RELOAD command 
9000 624° SSTATE RELOADCMD : 
900 6 STRAN ‘'RELOAD',LOAD1,BOOSCONRESET; Command verb 
000 627; 
$8 ° 3 : Share command - Initialize and/or connect to a shared memory 
900 $30 : SSTATE SHARECMD 
00 631 $TRAN SHARE, ,GENSSHR_RESET ; Command verb 
99 6 ; SSTATE SHARECMDOPT 
0 4 6 STRAN 'SHAREOPT,SHARECMDOPT =; Command options 
000 634 TRAN TPAS_LAMBDA 
635 SSTATE 
6 § TRAN ‘M* ; Multiport memory ‘MPMx"' 
6 SSTATE 3 
000 6 8 TRAN ‘P* 3 
3 6 SSTATE : 
640 STRAN ‘RM’ 3 
9 641 SSTATE : : 
644 STRAN  TPAS_DECIMAL,,GENSSHR_UNIT ; Memory unit # 
00 64 SSTATE : 


c— 


L 9 
arsing for SYSGEN 16-SEP-19 :08:07 VAX/VMS # Vv 
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TRAN TPAS_SYMBOL,,GENSSHR_MEMNAME ; Memor 
Hie NROPT - icp 


$ : 
' SHAREOPT , SHROPT ; Share options 
TRAN TPAS_EOS, fPAS_EXIT : 


) 


> SYSGEN specific show qualifiers 
; SSTATE DEV OR ORIV 
N 


FOP MAMA 
ANRC OONOANE WOOO NOU 


STRA DEVICES’. ..4.0 : SUO/DEVICESE odeunene 
STRAN ‘DRIVER',....1 + SHO/DRIVER C=devname 
HM TPAS_EOS, TPAS_EXIT ,BOOSSHODEV_ALL : SHOW ALL 
STRAN 'SEPARATOR ; 
STRAN TPAS_LAMBDA 
STRAN TPAS_STRING, TPAS_EXIT ,BOOSSHODEV ; SHOW SPECIFIC DEVICE 
SSTATE SHOWCON 
663 STRAN 'SHOWCON_LOOP, TPAS_EXIT ,BOOSSHOCONF IG 
665 SSTATE SHOWCON_LOOP 
666 S$TRAN t SHOWCOROPT . SHOWCON, LOOP 
65 STRAN TPAS_EOS, TPAS EXIT 
99 668 STRAN TPAS_LAMBDA, TPAS_FAIL 
09 670 SSTATE SHOWCONOPT 
671 $TRAN ‘/* 
000 67¢ SSTATE 
00 67 STRAN ‘COMMAND FILE’, TPAS_EXIT,BOOSRESET_COMMAND ; Set command file spec 
00 674 STRAN ‘OUTPUT, TPAS EX 
4 675 STRAN ‘ADAPTER, TPAS_EXIT,BOOSSET_TR 
000 e7 : SHOW /UNIBUS C/ADAPTER=n] 
ore SSTATE SHOW _UNIBUS 
0 680 TRAN ‘UNIBUS',,,..0 
9 681 SSTATE 
000 6 : TRAN '/* 
00 6 TRAN TPAS_LAMBDA 
00 684 SSTATE 
00 685 TRAN ‘'ADAPTER, ,BOOSSET_TR,..1 
686 STRAN TPAS_LAMBDA 
9 6 SSTATE 
6 : STRAN TPAS_EOS, TPAS_EXIT ,BOOSSHOW_UNIBUS 
690 SSTATE ADAPTER ; Set adapter number 
691 STRAN ADAPTER", ,BOOSRESET_ADAP 
00 69 SSTATE 
00 69 STRAN  !SEPARATOR 
00 694 SSTATE 
00 695 STRAN ‘NUMBER, TPAS EXIT 
0 69 STRAN TPAS_LAMBDA,ADAP_STR 
6 69 SSTATE ADAP_STR2 
900 99 $TR TPAS_LAMBDA, ADAP_STR,BOOSRESET_ADAP 


a Sr 
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STATE 
TRAN 
TRAN 


Wn 


w 


SSTATE 
STRAN 
TE 


TRAN 
SsTAte 
TRAN 


SSTATE 
N 


ot ts at 


SSTATE 
N 
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ESEb 198s 98:88:97 
ADAP_STR 


TPA A, ADAP_STR,BOOSADAP_LETTER 
DECIMALS PRE 


letter at _* time 
TPA EXIT, BOOSABAPTER "NAME: end 


ake number a 


Recognize the TERMINAL command 


TERMINALCMD 
* TERMINAL’ 
“se 


"ECHO' ,TPAS_EXIT,SYSGSLOAD_TT_STR ; /ECHO only qualifier 


Recognize WRITE Command 


WRTCMD 
*WRITE* 
'WRTCUR, TPAs EXIT 
iWRTACT. TPAS pt 
iF ILESPEC, TPR EX 


Command verb 


IT,BOOSURTFILE ; 


RTCUR ; WRITE CURRENT 
SCURRENT® 
TPAS_EOS,, TPAS_EXIT ,BOOSWRTCUR 
WRTACT ; WRITE ACTIVE 
*ACTIVE’ 


TPAS_EOS, TPAS_EXI? ,BOOSWRTACT 


RECOGNIZE CONNECT OPTIONS 


CONE CTOPT ; 
Switch introducer 

tADAPTER, TPAS EXIT, Seti ; Adapter number 

iNOADAPTER' , TPAS EXIT 8008 CONNLADP ; Use null adapter 

'CONCREG, TPAS_EXTT, BOOSCONCREG 3; Control register (UBA) 

iCONEVECTOR TPAS. EXIT BOOSTORICVEC : Vector (UBA) 

'CONCNUMVEC,, TPAS EXIT SCONCNUM 3; Number of vectors 

i CONAUNIT, TPAS_ERIT,BOOSCONAUNIT ; Adapter unit 

i CONUNITS. TPAS EXIT .BOOSCONUNI TS + Maximum units 

iCONSYSID_LO, TPAS_EXIT BOOSCONSYSID_LOW °; System 1D tow) 

iCONSYSID "HI, TPAS EXIT .BOOSCONSYSID HIGH ; System ID (high) 

i CONVECOFF, TPAS_ERIT ,BOOSCONVECOFF SET : Malices 06 weccartecahe Oct 

iCONCSROFF , TPASEXIT ,BOOSCONCSROFFSET ; Offset to CSR(combo device 

‘ORIVERNAME ; 

‘SEPARATOR : 


L . 
TF ILESPEC, TPAS_EXIT ,BOOSCONDRVNAM : Driver name 


CON NCREG :; Control register address 
CONTROLREGISTER', VALUE ; 


le NCD = Command parsing for SYSGEN 
PARSE TABLES “ 
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oa 
w 


LS 


fs 

tf 

re 

774 
3 or? 

a 
0900 ore 
00 77 
00 780 
464 fl 
0000 7 ; 
0000 7 
0000 784 
0000 786 
0000 786 
0000 787 
0000 78s 
9999 799 
44 79 
0000 79 
0000 794 
4 795 
0 79 
000 79 
00 798 
4 799 
039 $00 
333 i 
a 

05 
; 


SOOoooooooo 


Sssssssss 
OD 
Fwnr—O0e 


STRAN 


STRAN 


STATE 
TRAN 


SSTATE 

STRAN 
STATE 
TRAN 


SSTATE 
STRAN 


SSTATE 
STRAN 
SSTATE 
STRAN 
SSTATE 
STRAN 
STRAN 


SSTATE 
STRAN 
getare 


SSTATE 
STRAN 
SSTATE 
STRAN 
SSTATE 
STRAN 
SSTATE 
STRAN 


16-SEP-19 08:07 VAX/VMS Macro v04-00 P 15 
4-S oat 90:08:84 feoors sae SYSBOOCMD.MAR; 1 = (1) 

*CSR* ,VALUE 3; Synonym 

CONC VECTOR ; Control vector address 

VECTOR® , VALUE ; 

CONCNUMVEC 3; Number of vectcrs 

NUMVEC® , VALUE 3 

CONUNITS 3; Maximum units 

MAXUNITS* , VALUE ; 

ONSYSID LO 3; System id 

TOYS 1DLOQ* VALUE 3 

CONSYSID HI 3; System id 

SYSIDHIGH' , VALUE 


CONVECOFF 
VECTOR_OFFSET" , VALUE 


CONCSROF F 
*CSR_OFFSET", VALUE 


CONAUNIT 
*ADPUNIT® , VALUE 
*:" TPAS_EXIT 


> Recognize Share command options 


SHAREOPT 
se 


i AS_ERI 
i POOL TPAS E 
iPROCNT, TPAS_ERIT 


" 
2 
ce 
= 
> 
= 
. 
_ = 
evv0 
> 
ad 
m 
& ed MC DK HC OK DK OK 


; Offset to vector from start of combo vecto 


; Offset to CSR from start of combo CSR 


Adapter unit number 


: Switch introducer 


ENSSHR_GBLCNT ; Global Section count 

NSSHR_MBXCNT ; Mailbox count 

ENSSHR_CEFCNT ; Com Event Flags Clustr Cnt 

NSSHR_GBLMAX ; Port max Global Sections 

GENSSHR_MBXMAX ; Port max mailboxes 

NSSHR_CEFMAX ; Port max sen, Svent Flags 
ocks 


SSHR_POOLS ; Size of pool blocks 
SSHR_PRQCNT ; Count of PRQ blocks 


'SHRSTART, TPAS_EXIT.GENSSHR_START ; Start of useable mem. 
‘INITIALIZE, TPAS_EXIT,GENSSHR_INIT ; Initialize 


SHRGBL CNT 
GBLSECTIONS* , VALUE 


SHRMBXCNT 
MAILBOXES* , VALUE 


SHRCEF CNT 
CEFCLUSTERS* , VALUE 


SHRGBLMAX 
MAXGBLSECTIONS* , VALUE 


Global section count 


; * ilbox count 


Common event flag cluster count 


; Port maximum Global Sections 


a 


crc 
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| S055 PARSE TABLES ° ae set} 90:98:84 Yeoors SRe SYSBOOCMD.MAR; 1 . (9) 
$8 15 SSTATE SHRMBXMAX ; Port maximum Mailboxes 
09 i$ STRAN MAXMAILBOXES* , VALUE é 
0 18 SSTATE SHRCEFMAX ; Port maximum Common Ev Flag Clusters 
4 1% STRAN ‘MAXCEFCLUSTERS',VALUE ; 
4 1 SSTATE POOLCNT ; Total pool blocks count 
00 § STRAN *POOLBCOUNT’ , VALUE 3 
4 Z STRAN *POOLBCNT' , VALUE 3 
000 5 SSTATE POOLSIZE 3; Pool block size 
Boo $ STRAN *POOLBSIZE*, VALUE 
0000 8 SSTATE PRQCNT ; Total PRQ blocks count 
4 9 STRAN *PRQCOUNT' , VALUE : 
000 0 STRAN *PRQCNT',VALUE ; 
0000 831 : 
4 B3§ SSTATE SHRSTART ; Starting relative PFN 
000 3 STRAN *START’ , VALUE ; 
44 834 
0000 835 ENDC : End SYSGEN specific command 
0000 836 SEND_STATE 
0000 837 ; 


<4 


-—_—-----------— 
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| VO04= PARSE TABLES ° 4-SEP =198¢ 9: g8 at BOOTS.SRCJSYSBOOCMD.MAR; 1 = (2) 
§ Own Storage: 
0000 -Psect NONPAGED_DATA, noexe,rd,wrt,quad 
BOOSGL_CMDOPT: : 3; Command options 
- LONG " BOOCMDSM_TERMINAL ; Default is all oft, except for terminal 


SAVE _TODCBASE : 


9; 

0; 

4 

5 

Ss Save area for system time and base 
8 BL registers 
9 SAVE_TODR: 

9 -BLKL 1 

4 

8 

9 

0 

4 


00000010 
0000 ~PSECT SYSBOOCMD,LONG 


PARMBLK 


SOOOCOCOOCOOCOOoOooOOoOooo 
MMMOOOS—DOOCOOCSCSoSoOS 


Os SOOSCSKONMA LES 


OoOOooooooooooo 


; TPARSE parameter block 


00000024 


3 
i 
4 
4 
4 
4 
4 
4 
4 
4 
; 
5 
H 
° BLKB  TPASK_LENGTHO 
5 
5 
5 
6 
6 
6 
é 
6 
é 


| 00010000 
0000000C¢ 
00000000 09 f BOOSGL DOT: 0 Last parameter address 
0 BOOSGOQ_FILDESC:: ; File name descriptor 
00000000 00000000 Opes LON ‘0.0 : 
0030 BOOSGT AFILNARE: : File name buffer 
00000070 0030 BLK “64 : 
007 BOOSGT _CORBUF ; Command Line Buffer 
a abe 007 BLK * 200 : 
000000 1 BOOSC COMBUF SzZ==. -BOO$GT_COMBUF ; Size of command buffer 
138 5 BOOSGT_C ; Command string 
00000538 0138 508 KB’ 1024 : 
00000400 0538 BOOSC JCOWSTRLEN==. -BOOSGT_COMSTR ; Length of command string buffer 
538 Bee 8 BOOSGT_ 3; System name string 
3A 4D 45 54 53 59 53 24 53 59 53 99" 538 ae trata "\SYSSSYSTEM: SYS.EXE\ ; Name of sytem image 
45 58 45 2€ 53 59 33 338 
548 70 BOOSGT_SYSPARNAME : 
3A 4D 45 54 33 59 53 24 53 59 53 00° 308 71 -ASCIC \SYSSSYSTEM: VAXVMSSYS.PAR\; Name of the system .PAR file 
41 50 2E 53 59 53 53 4D 56 58 41 56 055 
52 0563 
18 0548 
564 ore 
44 90" sys 873 BOOST_DYNAMIC: eascic /D/ 
sf 0366 874 BOOST_NODYNAMIC: eascic // 
56 75 
20 20 20 20 20 20 20 20 $8 20 $3 00° 0567 Hn CUR_BLANKS: eASCIC / / 
20 20 20 20 20 ¢9 ars 
20 20 20 20 00° af 877 BLANKS: eASCIC / / 
57E 78 
0 43 41 35 31 21 00000586'010 p09" 57E $75 CTRLSTR: eASCID @!15AC '4(10SL) !11AC !AC@ 
1 28 34 21 $9 0 st $3 $3 20 ° § 58C 
21 20 43 41 31 31 21 20 29 4C 0 0598 
er Re 
$3 43 41 35 31 31 at i tS a 5A6 Hy HEXSTR: eASCID @!15AC '4(10XL) !11AC !ACa 
1 28 34 21 20 20 20 20 20 20 20 20 0584 


we 


<u“ 


—_—-----------———— 
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sae” pan Ege for svsce NEMESIS USREENT HANOVER MRSER ABS mansn US 
21 20 43 41 31 31 21 20 29 4C 58 39 co | 

43 C 
21 43 41 35 31 506° 010E , ef $8 ASCSTR: eASCID @!15AC!AC**I AF’ TAC’ TAF’ AC’! AF’ TACT AF’ '17AC 'aca | 
4 $3 0 66 4 2 434 D 
PRUE EEE PREEE: 
eC CE EE DEE, : 
Ban 2521 20 20 onoperg-eyngony? EE acrmsr .ASCID @ !#C17A0) @ 

} Hy SCTRLSTR: -ASCID @ Startup command file = !ACca 


72 61 74 5 
hel $ 
5 


RSERROTE 


1 
64 8 
$1 7 $i 2F 4 9°91 * 064 89 CTR_PARINUSE:  .ASCID @!/Parameters in use: !AC@ 
3 75 20 6E 69 20 § 4 g 44 65 
43 41 21 20 3A 6 nm 90 
64 531 SDVHDR: 
gh 4 20 es $5 74 65 6D $} 7 2 50 $. 92 ASCII \Parameter Name Current Default Minimum Maximum\ 
gh FE ab £0 98 60 8 £8 28 6 Be 
4D 20 20 4 gf 7 $ 66 65 44 68 
78 61 4D 20 20 20 6D 75 4 9 of 24 + 
6D 61 6E 79 44 20 20 74 69 6E 3 20 893 eASCILT \ Unit Dynamic\ 
A OD 94 ASCII <CR><LF> : 
D 2D 2D 2D 20 D 2D 2D 0685 895 CASCI] \eeeeseneneenee meee eee eeeeene  eeeenne  enneee= \ 
0 20 20 20 20 20 20 20 20 3 4 D 
0 20 2D 2D 2D 2D 2D 2D 2D 3 
0 20 3 D 3 D 2D 2D 2D 2D 
D 2D 2d 0 D 2D ; . . ) 
2D 2D 2D 2D 2D 20 20 2D 20 2d . o 896 eASCIT \ eeee  eeeeeee \ 
0000009E 


897 SDVHDRLEN=.-SDVHDR 
899 IF NDF ,CMDSW 
1 RIOSAB_OUTBUF :: - Long . 
RIOSAB_BUFFER: : ~bLk 8 
4 RIOSGW-OUTLEN: : ‘word 
BOOSGB_FILELEN: -byte 8 
BOOSGL “FILEADDR: . Long 


800 : 
BOOSGT “DEFAULT: 

0 BOOSGL “PARINUSE : long 0 
2 


SOOO OCOCOCSCOOOOOOOOO SB HMMIAT 


AA AAAAAMAAAAAAAA2N@ NOS @UW NNO SNM 
_ 
° 
3 


Sb 
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- SBTTL 


+ 
+ 


Functional Description: 
Salling equenses 
Input Parameters: 
NONE 
Implicit Inputs: 
NONE 
Output Parameters: 
NONE 
Implicit Outputs: 
NONE : 


Side Effects: 
NONE 


ODOODOOOOODOOOOOOOOOOO« OOWoOvono 


WAIN AAA AAI IIOP 
OONO VE WO OD WVOAU FE UO "OO ODOWOune® 


SOSCSOSSSSSSOSOSOSOSOOSOSOSOOOSOSOSOOSOSOOOOOO OOO OOOOOOOOOOOCOOO 
FD EM BD OWINS BMAD ADA AAA DADA AA PPUD IAA AANA NAA NAAN AAA AND 


SOO LLL LLL 


940 -LIST MEB ; Show macro expansions 
941 
OFFC oe¢ BOOSGETPARAM:: .WORD “M<R2,R3,R4,R5,R6,R7,RB,RO,R10,R11> ; Save all registers 

ace If NDF ,CMDSW ; SYSBOOCMD only 
368 : Make descriptors PIC (only needed in SYSBOOCMD) 
948 * 
305 MOVAB CTRLSTR+8,CTRLSTR+4 ; Set address in descriptor 
950 MOVAB HEXSTR*B,HEXSTR+4 : Set address in descriptor 
32 MOVAB ASCSTR*B,ASCSTR*4 : Set address in descriptor 
.] § MOVAB pr phag thee Bey Mae dh te, 3; Set address in descriptor 
95 MOVAB SCTRLSTR*8,SCTRLSTR#4 ; Set address in descriptor 
954 MOVAB RIOSAB_BUFFER,- 
332 RIOSAB_OUTBUF +4 ; Set address in descriptor 
$57 -ENDC 
338 READCMD: : 

57 FB8F7 CF ODE 960 MOVAL PARMBLK,R7 ; Get address of parameter block 

08 A? p4 961 CLRL_  TPASL_STRINGCNT(R7) : Initialize string Length 
OC A? «OFA CF : 306 ecminte BOOSGT_COMSTR, TPASL_STRINGPTR(R ) ; And address 
52 FOS9 CE 9E 0713 964 MOVA BOOSGT_COMBUF .R2 : Set address of buffer 
2 op 1 965 PUSHL R ; Set buffer address into argument List 
aS SF 9A 1 306 VZ7BL #BOOSC_COMBUFSZ,-(SP) ; and maximum size for read 
98 ‘EF OF 1 96 PUSHAB ee PROM ; Address of prompt string 
‘EF 3 4] 96 CALLS # +4 BOOSREADPROMPT ; Prompt for and accept command 
01 50 ce st ae rRO,5$ 3; Exit if end of file. 


F 10 
= foment ereing for ores CREA MIEN BENT RecRASSC ws "OB 


i ecuaed 


9 74 5$: MOV R2,R0 i; Set address of stri 
A 75 MOVZBL (RO)+,R1 ; Get address and coun 
61 &8F 1 2 7$: C (RO) ,#*A/a/ ; Lower case possible ? 
a 7 BLSSU «BS ; No, Branch 
7A 8F 1 7 CMPB age araver ; Lower case possible ? 
& 7 BGTR $ 3; No, Branch 
60 BA 88 Face eaned. (0) 3 oo bit. aghe character upper case 
: 3; Incremen nter 
ec Pg ¢ SOBGTR R1,7$ 3; Loop - 


53 O8 A? OC A? 1 ADDLS TPASL_STRINGPTR(R7) ,TPASL_STRINGCNT(R7),R3 ; Get current pointer 
50. 8 MOV (R2)+,RO i 


2 A 5 ZBL ; Get Length of input Line 
F ts 9 § BEQL  READLINE ; Ignore null input 
1 ¢ 9 MOVL R2,R ; Move to LOCC address register 
‘ A 9 § 30$:  MOvZBL (R1)+,R2 ; Get a character 
dD «69 9 CMPB #*A/-/ RZ 3; Is this @ possible continuation? 
D6 (1 4 BEQL ; Branch if yes 
52 1 9 99 CMPB #*A/!'/,R2 3; Is this the start of a comment? 
13 444 BEQL 4 ; Branch if yes 
08 A 99 INCL TPASL_STRINGCNT(R7) ; Bump characters in command string 
83 38 994 MOVB R2,(R3)+ ; Copy character to command string 
EA f 995 35$ SOBGTR RO,30$ ; Continue for all characters in put 
11 996 BRB PARSE : Done, parse command 
3 7 997 40$ DECL RO ; One less character 
01 al 50 1 44 LOCC #*A/'/,R0,1(R1) ; Scan renevates string for ! 
4 BEQL PARSE 3; None end of Line first 
5 000 INCL R1 3; Advance to next character 
4 001 Bog 35$ 3; Continue with Line scan 
54 O08 50$ MOVL R3,R4 3 Save string insertion pointer 
55 OB A 0 MOVL TPASL_STRINGCNT(R7),R5 : and curren Length 
83 65 004 MOVB R + ; Copy to buffer anyway 
A 05 INCL  TPASL_STRINGCNT(R7) ; Advance counter 
15 BRB 65$ ; And check for end of string 
38 +} 60$ MOVZBL (R1)+,R2 ; Get another character 
8 08 H MOVB ; Copy to buffer 


INCL Ft STRINGENT (R?) ) tri t 
° string coun 
#°A/ 7 R2 Bir phen 


52 CMPB ; Blank? 
BEQL 65$ : Yes, still might be a continuation 
52 ; ine caf 14 Me 3 as chis 9 comment? 
3; Branc es 
A BRB $ 3 Not a continuation 
E8 50 638: SOBGTR RO,60$ : Continue to end of Line 
3 33 : 0S: MOVL + 0 svammecet caf) 3 prop everything orter continuation 
0 B :; By restoring coun 
BRwW READL INE ; Read another Line 


A 
RO 3; One less character 
Locc F0/ ts AG, 0ent) ; Scan for end of comment 


oo 
So 
bed 
So 
m 
o 
c 


"3 
O1 Al 50 1 


BEASLASSH=ALASSSS=SSSS=SASQ 


go BEQL ; None 
1 INCL R1 ; Skip trailing ! 2 
1 ERB ; and continue scan for end of Line 
67 09 PARSE: MOVL #TPASK_COUNTO,TPASL_COUNT(R7)_ ; Init count field 
04 A? C BISL. #TPASM-ABBREV,TPASL-OPTIONS(R7) ; Permit abbreviations 
CA BICL2 #*C<BOOCMDSM_NOCHECR!- 


ee ee ee ee ee ee 
SOOCOCOCOOCOCOOCOOOOOOCOOOoSoSooOo 


ROROMONONONONOND 2 SS BOO 


NOUS WN CO OONOUE WIN O0O@ 
<= 
ae 


< H ; 
BOOCMDSM_SETOUTPUT! - 


r - _— 


nm 

_— 

-” 

nm 

7” 

nm 

2 

—s* 

*-- 

S22 
Saane 
WMRomnwny 


s 


00000000° GF é 7be 
ie 
7t8 
7€6 
ree 
7€6 
7€8 
78 
nt 
Ab 
i 
5 dD re 
00000000 ° GF 1 ‘ re 


ae 
Sua 
Boses> =SuLla =sn¥e 


rmamno— 
-coo— 


52 soe F 
4 
— a 


= Command parsing for *YSGEN 


ro v04-00 


"TSEp= 198s 99:08:91 Hecate sme isesboocho man; 1 


} ee tS eae Clear all options but specified 
; Clear a ons spec 

1 LRB PASB_CHAR(R7) 3 ,set cherecter parsed a 

1 SH « Ht ; Pass address of key table 

: pusme, ay S gee cltrece of porencter blest 
3 ° rameter bloc 

1 CALLS & $5 IBSTPARSE ; Parse t ” 

1 BL s of i Branch if no syntax error 

! BBS #31,R0,158 ; Branch if error already given 

} if NDF ,CMDSW 3; SYSBOOCMD 

; MSG <-E-Syntax error> ; SYSBOOT error message 

: iff 3; SYSGENCMD 

1044 CMPL JOS SWUTAREAR RO ; Tparse Syntax error ? 

1045 BEQLU ; Branch if yes 

1 § TSTL & ; lero ? 

1 BEQL 10$ ; Branch if yes 

1 : PUSHL RO ; Push REAL error code 

1 CALLS #1,G*LIBSSIGNAL 3 Signal Error 

! 9 BRW 308 : Continue 

; § ; Heuristically determine where syntax error occured 

1054 108: MOVZ7BL TPASB_CHAR(R7) ,R4 3; Was there a character parsed ? 

1055 BNEQ : Branch if yes 

1086 MOVO - TPASL_STRINGCNT(R7),=(SP ; Push entire read-in string 

; BRB 14$ F Branch 

1 5 128: SUBL 3 TPASL_TOKENCNT(R7), TPASL_STRINGCNT(R7),R2 ; Length 

1060 ADOL TPASL TOKENCNT(R7), TPASL_STRINGPTR(R7) R35 ; Address 

1061 CMPB Oe #*A'/* RG T Was it a qualifier error ? 

1 <1 BEQL 3; No 

106 mova R2,-(SP) 

1 ¢ BRB 14$ 

1066 13$ LOCC = TPASB_CHAR(R7),R2,(R3) ; Find it then 

106 mova B9.-(SP) 3; Push Length and address 

1 3 14$: PUSHL @# 3; Number of FAO params 

1 PUSYL #SYSGS$_SYNTAX ; Error message 

: . CALLS #4,G*LTBSSIGNAL : Signal the error 

; % -ENDC 

1074 15$: BRB 308 ; and get another command 

1075 208: MOVL BOOSGL_CMDOPT ,R6 ; Get command option flags 

107 BBS #BOOCMOSV_CONT.RO,EXIT 3; Exit if continue vies 

' 4 ; BBC #BOOCMDSV_DEFAULT,R6,30$ ; Read another command if Help 

1 8 : The Default values for system parameters are selected and must be copied to 

' : the current system parameter area. 

1 § ; MOva EXESGQ_TODCBASE ,SAVE_TODCBASE ; Save time base register 

; MOVL  EXESGLTODR, SAVE_TODR : Save time register 


<i 


i 


-—— 
H 10 

, SYSGENCMD -C€ i f YSGEN 16-SEP-1984 08:07 VAX/VMS M 04-00 P 

| Sapeene ommand parsing for SYSGE 6-SE 90:08:07 y acro V04-0 age 3, 


46-SEP-1984 BOOTS. SRCJSYSBOOCMD.MAR; 1 ( 
‘BF 28 0864 1085 MOVC3 #EXESC_SYSPARSZ,- 
00000000" FF be 15 § BOOSA SYSPARAMLS 
"EF 0872 : 5 EXESA_SYSPARAM ; Copy defaults 
00000000‘ EF 90000004 ‘EF 7D 0 72 1089 MOV SAVE_TODCBASE,EXE$GOQ_TODCBASE ; Restore 
00000000" EF OOOOC'EF DO 870 30 MOVL  § SAVE-TODR,EXESGL_TODR 
Q00000000'S8F €E2 tt 1 38 BBSS #EXESV_WRITESYSPARAMS,- ; Use default => write current neeaed 
OB8E 1093 te G*EXESGL_DYNAMIC_FLAGS,1$; 
O0000000°EF DE 0894 1095 MOVAL BOO$GT_DEFAULT,- 
00000000' EF 089A 1 % BOOSGL ~PARINUSE : Set default in use 
FE63 0s 31 peer ' a 30$: BRW READCMB ; Read more commands 
50 01 400 OBA? 1938 EXIT:  MOVL #1,R0 ; Return success 
04 08A5 1100 RET : 
O8A6 1101 


| 
| 00 00000000 ' GF 
| 


| 


| 


199 for SYSGEN Pepe at Sat BS 9 90:08:07 AX/VMS Macro V04-00 


BOOTS .SRCJSYSBOOCMD .MAR; 1 


Get address of current parse 

Set token pointer 

Set file spec pointer | 
Remainder of parse string length 
Error if zero 


is there a blank? 
Branch if yes 
is there a slash? 


Remaining length 

Address of blank or slash 
Calculate length 

Set length of file spec 
Set length of file spec 
Set success 


SYSGENCMD = Command pe 
BOOSFILESPEC = Parse file spec 46-SEP-19 
ry i ; -SBTTL BOOSFILESPEC = Parse file spec 
| A6 1105 : 
| A6 11 § 3; CALLING SEQUENCE: 
A6 11 3 
“2 i 3 3 called as a TPARSE action routine 
BA6 1110 : INPUT: 
BAS Ti the t block CAP) 
§ e tpars t 
BAP Wiig parse parameter bloc 
say 1116 ; OUTPUT: 
| Obag 1116 A possible fil is found 
beac 1118 possible e spec is found. 
O8A6 1118 ; SIDE EFFECTS: 
pene 1190 ; The t block i d d 
| peas 113 e tparse parameter block is updated. 
O8A6 11 ¢ ot 
O8A6 112 
OOFC Saag 1186 -Entry BOOSFILESPEC, “M<R2,R3,R4,R5,R6,R7> 
52 OC AC DO O8A 1126 MOVL TPASL_STRINGPTR(AP),R2 ; 
14 AC 52 DO OB8AC 1127 MOVL R2, TPASL_TOKENPTR(AP) 3 
OO000000"EF 52 pO 0880 1128 MOVL R2,BO0$GC_FILEADDR : 
53 O08 AC 00 0887 118 MOVL TPASL_STRINGCNT(AP),R3 ; 
25. 1 088B 1130 BEQL 100$ 3 
08BD 1131 
62 53 20 3A O88D 1136 LOCC #*A/ /,R3,(R2) : 
04 12 O8C1 113 BNEQ : 
Se FF Ff FP pets Aig LOCC #*Aa/a,R3,(R2) 3 
08 AC 50 DO O8C7 1136 50$: MOVL RO, TPASL_STRINGCNT(AP) ; 
Oc AC 51 pO O8CB 1137 MOVL R1,TPASL_STRINGPTR(AP) ; 
51 52 C2 O8CF 1138 SUBL2 R2,R 3 
10 AC 51 DO O8D2 1139 MOVL R1, TPASL_TOKENCNT (AP) : 
00000000 "EF 51 90 08D6 1140 MOVB R1,B00$GB_FILELEN $ 
50 01 DO O8DD 1141 60S: MOVL #SS$_NORMAL ,RO ; 
07. ~=611 st34 1136 BRB 110$ 3 Exit 
50 00000000 8F dO SRES 1144 100$: MOVL #LIBS_SYNTAXERR,RO 
04 OBER 138? 110$: RET 


Page 


genend parsing for SYSGEN wines 19-$ p71 888 99:98:07 yancyes Macro v04-00 Page 24 


CUR = Use parameters from current 4-SEP- BOOTS. SRCJSYSBOOCMD.MAR; 1 (2) 
A 1}$ -SBTTL BOOSUSECUR = Use parameters from current image 
A 1169 BOOSUSECUR:: ; Set to current system values 
A il .WORD “M<R2,R3,R4,R5,R6,R7,RB,RI>; 
eC 11 MOVAB G*BOOSGT-SYSPARNAME,RO '; Get address of system .PAR file name 
F5° «11 MOVAL ARMBLK 3; Get address of the TPARSE pergeeter block 
FB O11 MOVZBL (RO)+, TPASL_TOKENCNT(AP): Set up for call to BOOSUSEF ILE 
FC (1154 MOVL  RO,TPASL_TORENPTR(AP) : 
06 1155 CALLG (AP), G*BOOSUSEF ILE i Call routine to process the .PAR file 
4 11 § BLBC . ; Branch to failure code 
A 11 BBCC #EXESV_WRITESYSPARAMS,- ; Use current => no write current needed 
910 11 ; G*EXESGL_DYNAMIC_FLAGS, 5$; 
916 1159 5$: MOVAL BO00$GT_ NT,=- 
91C 1160 BOOSGL —PARINUSE ; Set parameters in use 
921 1161 108% MOVL #1,R0 ; Return success 
924 1166 RET 3 
0925 116 
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AX/VMS Macro v04-00 Page 
BOOTS. SRCJSYSBOOCMD .MAR; 1 


-SBTTL BOOSSHOWV = Routine to show one parameter value 


Input Parameters 
R4 - Pointer to PRM block to be displayed. 


Output Parameters: 
Content of parameter block is displayed by calling RIOSOUTPUT_LINE 


POPR 1,R2,R4> 3 Restore the registers 


VL PRS ; Save a pointer to the buffer 

SUBB RD #17, - pens : rorcwlese number of pad blanks 
PUSHAL B00$T AMIC t dynamic 
BBC #PRMSO DYNAMIC PRMSL Fungs (Re) et 10S: Branch if not 
MOVAL B00$T_BYNAMIC, (SP) ; Change to dynamic string 

$: PUSHAB PRMST_UNIT T(R4GS 3; Stack address of unit name string 

PUSHAB PRMSL~ “MAX (RE) 3 Stack maximum value 

PUSHL R1 3; and size 

PUSHAB BLANKS 3 Blanks for padding 

SHAB PRMSL_MIN(R4) ; Minimum value 

PUSHL R11 3; _and size 

PUSHAB BLANKS : Blanks for padding 

PUSHAB PRMSL_DEFAULT(R4) ; Default value 

USHL R11 3 and size 

PUSHAB BLANKS : Blanks for pedding 

PUSHL R 3; Address A current value 

USHL ; ands 

PUSHAB CUR_BLANKS : Blanks for padding 

PUSHAB PRASTS NAME (R4) ; Stack address of paraneter name 
PUSHAQ RIOSAB_OUTBUF 3; Stack address st uffer descriptor 
PUSHAL RIOSGW"OUTLEN : Set address of loc to receive size 
PUSHAQ ASCSTR ; Control string for ascii 


2 
( 


BOOSSHOWV: 3 
MOVL : Get address of volue 
MOVAB Boosh" Syspagantno]. »RO : Add current base address 
SUBL #B00$% ; and sub tract feferies value 
MOVAQ HEXSTR> ; Assume hex display 
BS #BOOCMOSV_DISHEX,- 
BOOSGL cngOPT., 1$ : it set, then display hex 
MOVAG CTRLST not ascii data 
BBS APRASY "ASCII, PRMSL _Fuagsine): 3°95: Branch if ascii 
BRwW 15$ 3 
ASCII data 
PUSH R : Save a register 
SUBL #16,SP 3; Allocate a buffer on the stack 
MOVZBL PRMSB SIZE (R4) .R2 : Get size (in bits) 
ASHL #-3,R2, ; Convert size Ate bit to byte count 
MOVL R wR 3; Make a copy of the size 
CMPL R2, 84 3; Size > 4? 
BLEQ 3 3 ae t'9eq 1° 
MOVL #4,R $ for default, max and min 
SUBB3—s «R11 | Ors ; Pelonele number of blank spaces needed 
PUSHR #*McR1,R 2,R Sa ave some registers 
mOvCS R2. ROS # , re. #16,<384>(SP) : Move the parameter value into the buf 
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Q0000000'EF OF 
3. ODD é 
00000000 ‘EF rs F 4 
wees e 
FSDF* 3 ; 
51 15 AG QA ; 
"tale EB 

51 15 AG 9A 
51 60 14 es 3} EE 8 
68 dati 

OOF C 

56 O0000000°EF 9 
NASB 
57 05 4 DA4B 

3 


Eoaiecugteues 


parsi 


az GETDATA: 
3? 


for SYSGEN 
Routine to show one paramete 


CALL 
ADDL 
POPL 
BRB 


CALLS 
BLBC 
BSBW 
RSB 


o19-$3s8rne 
#16,SP 


558 


oA 


BOOST 
a Merit, 
T_BYNAMIC, (SP) 


PRMST_UNIT(R4) 
PRMSL_MAX(R4) 


PRMSL_MIN(R4) 
cone “DEFAULT (R4) 


NEG, PRMSL “ruasscn 


ay (SP) 
PRMST NAME (R4) 
RIOSAB_OUTBUF 
ny OSGu- OUTLEN 


#10, SYSSFAO 
RO, 608 


RIOSOUTPUT_LINE 


PRMSB_POS(R4) 


R1,PRASB siretne (RO) ,R 


"OSEp=]obe 28:06:97 Laon 


v04-00 
$Y SBOOCRD MAR: 1 


AX/VAS 
BOOTS. SRC 


; Format value for output 
Remove the buffer from the stack 


; ya Ba ey 


Decimal or hex display - R3 contains address of control string 


s Get data item scqeretng to size 


t dyn 
© OMSL Funes (Rey $085 3 Grench tf aot 


Change to dynamic string 


; Stack address of unit name string 
3 Stack maximum value 
one minimum value 


Def ault value 


ei 


#PRMSA_ NEG PRMSL_FLAGS ( ine 


oynee POS(R4) 


PRASB_ sTretne, (RO), S 


“M<R2,R3,R4,R5 rb.R7> 


BOOSA. PRABLK ,R6 


#3 ,87 


90$ 
PRMST_NAME(R6),R1 
PRIS “LENGTH(RO) RO 


708 
PRMST_NAME(R6) .R2 


Sete Se Se Ge Se Se Se 


: check for negated value 
ranch if not 
: Make absolute value 
Current value 
Stack address of ah egy name 
Stack address of ffer descriptor 
Set address of loc to receive size 


; Push address of control string 


Format value for output 


Output the Line 
and return 


GET SIZE OF DATUM 
: CHECK FOR NEGATED VALUE 


GET POSITION AGAIN 
NVERT TO SIGNED NUMBER 
assovute VALUE 


Set base of parameter blocks 


Init argument count 

At end of List? 

Yes, finished 

Set parameter name address 
Next peremeter., block 

At end of | 


tet second address 


2 


8; 


= iO Ry 


-¢ parsing for SYSGEN i ak s 8:07 VAX/VMS v04-00 m 27 
SHOW = Routine to s one paramete 4- SBOOCMD. 
Boossnouy O'R to show ErSEp alone Seiborey Losore smeisesboccas.man:1 2% 23, 
57 INCL R7 3; Advance orquaent count 
56 632 } MOV Prnsc LENGTH(RG) ,R6 3 Next argument 
? } szat 3 At end of List ? 
53 16 OVAL  PRAST_NAME (RG) R3 : Met third address 
5 INCL 7 z Another argument 
560 32 1 MOV PRMSC_LENGTH(R6) ,R6 3 Next parameter block 
? 1 TSTL R6) ; At end of List? 
A 1 BEQL 3; Yes 
7 1 3 INCL 3 another argument 
ri 18 A6 1 MOV PRMST_NAME (R6) ; Set fourth address 
D 1 MOVA Pan “eNETNeRe) Rb : Next parameter block 
1 ee 1 70$: PUSH M<RT.R2,R3,R4>- ; Stack args 
7 § 129 SUBL3 % ws =($P) 3; Set number of ser ings on Line 
ve F 129 PUSHAQ R10$A6_OUT > Stack address of buffer descriptor 
"EF F 1294 PUSHAL RIO$SGW OUTLEN ; Set address of loc to receive size 
F874 CF F 1295 PUSHAQ merauste ; Stack address of control string descr 
00000000 * EF Po 1 38 CALLS R $1 38F AO 3; Format value for output 
08 50.~—Ci*é€C : 38 BLBC RO, 1008 
F559" 1 BSBW RIOSOUTPUT_LINE ; Output Line 
A2 3 : 09 Beg OS * 3 Loop 
50 01 00 1 03 90$: MOVL #1,R0 ; Success status 
04 1 100$ RET 3; Return 
1308 
: 8 3; Show name of Startup command file 
1 08 BOOSSHOSTART: 
OOF C ; , ~ WORD “M<CR2,R3,R4,R5,R6,R7> 
50 Q0000000°EF 9%€ , 13 ies L*EXESGT_STARTUP,RO ; Set address of string 
1 ig “ CTRSTR = SCTRLSTR :; Stack address of control string descr 
1314 OUTLEN = RIOSGW. OUTLEN, - 3 Set address of loc to receive size 
1315 OUTBUF = RIOSAB_ OUTBUF,- ; Stack address of buffer descriptor 
1316 P1 = ; Set address of startup string 
50 D SHL RO 
"EF F PUSHAQ RIOSAB_OUTBUF 
00'EF F SHAW RIOSGW OUTLEN 
FB59 CF F PUSHAQ SCTRLSTR 
00000000 * GF 6 Ff Calis #$$T2,G*SYSSFAO 
Bic @ ! 4 BLBC RO, 108 
F52B° 3 1 8 BSBW RIOSOUTPUT_LINE 
: $9 10$: RET 3 


—_——_—_—____—_ 
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1333 -SBTTL BOOSNOCHECK = Disable value checking 
. 1336 : } Disable Value saat and Limiting 
0099 AD6 1 ? booswocnece: 0 
00 00000000° ef 00 AD 1 se0ocnDsy -NOCHECK, BO0SGL: _CMDOPT,10$ ; Set value check inhibit 
0 01 9 9 1399 108: hove #1,R0 ; Return success 


sag” 


= Command 
BCOSNOCHEC 


rsing for SYSGEN 
- Disable value checking 


dt ot st 
= 


esto % ge ¢ AX/VMS Macro v04-00 
4-SEP-1984 6: BOOTS.SRCIJSYSBOOCMD.MAR; 1 


; -SBTTL BOOSNOCHECK = Disable value checking 


Pa 29 
= (2) 


4; 

5 ; ENABLE VALUE CHECKING AND LIMITING 
BOOSCHECK: 

~ WOR 

BBCC 

MOVL 

RET 


? wull entry mas 
#BOOCMDSV_NOCHECK ,BOOSGL_ CM CMDOPT,10$ oied check flag 
#i,R 7 Return seh success 


40 108: 
4 


AMUMUMNUMUMNMNANMNMNNNANVNMVKOVNVWOKOOMNMONOVADADAAAADAAADAADVVVVVVVVVVVVVvVvVvVvVIVIVIVID ws 


OO7C80F2 8F DD 
00000000°GF 01 


FB 

50 02 CE 

04 

0000 

20 AC F4D1 CF f 


sosherane parsing for SYSGEN poe: 16-SEP-1984 ¢ 9: 98: 9 


SEARCH = Lookup parameter name 4-SEP-1984 


se 


= 


; Input TPASC TOKENCN rea 
TPASL_TOKENPTR(A 
Output Parameter 


ae 


name if found. 
RO - 9 => Name not found 

=> Name found 
BOOSSEARCH::  .WORD “M<R2,R3,R4,R5> ; 


BBC #BOOCMDSV User ILE. = 
BOOSGL _CMBOPT 


#3 


— 
- 


TPASL_TOKENCNT(AP) — ; 


BOOSA_PRMBLK,R4 
(R4) 


=O ODNAUE WN 0 OONOUE WN 
o 
3 


SN NIAAA AAA AAAQA MAIN 


BRB 0$ 
30$ MOVAB PRMST_NAME(R4),R5 
CMPB. Ss TPASL— NORENCNT CAP), (R5) +; 
BGTR 5$ 
CMPC3 TPASL_TOKENCNT(AP),- 
g a aTPASC. TOKENPTR(APS , (RS); 
74 35$ MOVAB PRMSC_LENGTH(R4) .R4 
75 RB 1 


R4, TPASL_PARAM(AP) 
MOVL Rs -BQOSEL_DOT 


M3 3 3 32 OO oO 


tt kt a a ts a a a a © ns 2 


#BOOCMDSV_USEF ILE ,BOOSGL.C 


82 .IF NDF ,CMDSW : 
37 - MSG <-E-No such parameter> 
Be PUSHL #SYSG$_NOPARAM : 
§ CALLS #1,G*LTBSSIGNAL 3 
~ENDC 
39 60$ MNEGL #2,RO g 
30 RET 


38 : BOOSDOT - Use Last parameter name if any 


95 BOOSDOT:.wORD 0 
MOVL BOOSGL _ DOT, TPASL _PARAM(AP) 


3 CLRL RO 
99 10$: RET : 


oowowvowJowovono 
NOS 


SHSSSSOSS SSS OS OOS OSS OOH O DOOD SSD SS SSS OS > 


DNASE BEEPS EE 
ODNUIMOSOSCVCIVTM COONOOAOOS 


BGEa 43=—s-s«S0$ > Exi 


AX/VMS Macro v04-00 
BOOTS. SRCJSYSBOOCMD.MAR; 1 


-SBTTL BOOSSEARCH = Lookup parameter name 


(AP) = Count of characters in token 
(AP) = Address of token 


TPASL_ PARAM CAP) - Address of PRM block for specified parameter 


Skip count check if not USE <file> 


Check for count of characters 
xit if if not > 


: Set base of parameter blocks 
5 = end of List 

BNEQ 0$ 3; Not 
: Symbol not found error 


S poimer to name ss 
thee for too many gaares ers 
; Yes, cant be a match 


Is this a match? 

; Yes, return PRM pointer 

Advance to nex parameter descriptor 
and try another 

Return address of parameter block 
And save as dot 

Indicate success 


and return 
MDOPT,60$; No message on ‘USE filename’ 
SYSBOOCMD 
SYSGENCMD 


Set message 
Signal 


Give unique error code 


Null entry mask 

3 t dot address 
Have aK. 
; Give error status 


Page % 


na | 


‘Am 8 8 6s hULhA 


Pet ft SPODMDMNADOM. 1 DB 
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BOOSSETVAL 
A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

A 

0010 s¢ 
E2 z 
b0 6 
€1 6C 
31 ie 
E OB 76 
8 8 
iS oat 
ist 
ul 
D1 0897 
if 0898 
DO 0B9D 
D4 OBAI 
dO peAs 
0 4 


ttt t4 


i= hh hhh) hh) )~)~ Tell 
CoOOOOOOO0OO £— FG- TON 


SPSOSO SSS SOSOS 


rsing for SYSGEN 


- Store parameter value 
-SBTTL BOOSSETVALUE = Store parameter value 
Input Porgnegeres 
TPASL_PARAM = Address of parameter descriptor 
TPASL_NUMBER= Value to be checked and stored 


Output Parameters: 
If value 


wn 


Sete Se Ge Se Ge Ge Se Se Ge 


BOOSSETVALUE: : 
WORD 


BBSS 
1$: 


(et es 


— 
So 
bad 


20$: 


30$: MOVL 
MO 


RO = Completion status 


"SSE 19be 98:88:91 


=> legal value 


AmcR4> > Entry 


=> value out of allowa 


AX/VMS Macro v04-00 
BOOTS. SRC JSYSBOOCMD.MAR; 1 


is within bounds set by parameter descriptor, the 
value is moved to the yey specified by the 


cartes descriptor 
le range 
successfully stored 


mask 


Page 


#EXESV eS rages ia Set a value => write current needed 


G*EXESGL_DYNAMIC_FLAG 


TPASL_PARAM(AP) ,R4 
#PRMST_ASCII,- 
PRNSL FLAGS (R4) , 108 


If BC 
1 

#BOOCMDSV_NOCHE CK ,BOOSGL 

PRMSL_MINTR4) ,RO 

TPASL NUMBER (AP) .RO 

RO. TPASL NUMBER (AP) 

PRASL_MAX(R4) ,RO 

RO, TPASL_NUMBER (AP) 

RO, TPASL_NUMBER (AP) 

TPASL_PARAM(AP) ,RO 

PRMSL-ADDR(RO) ,RO 

BOOSA-SYSPARAMCRO],RO  : 


#BOOSA_SYSPARAM, 
SPRASM_NEGPRMSL_FLAGS(RS) 


Get m 


Check 
Limit 


rs No 
TPASL _NUMBER (AP) , TPASL_NUMBER (AP) 


PASL_ 
PRM$B_POS(R4) .R 


Get pointer to 
Ascii parameter 


no continue 


; Branch to error 


Assume gee value 

CMDOPT,30$ ; Should values be checked 
inimum allowable value 
No minimum 

Check input value 

Branch if above minimum 

Use minimum value 

Note bad value 

Get maximum allowable value 
Branch if no maximum 


for maximum 


Continue if value legal 


to max value 


Indicate error 
Get address at which to store 


Add present base of parameters 
; And subtract Link-time base 


; Check for negative 
3; Complement 


),R1 ; Get position 
TPASL NUMBER (AP) ,R1 .PRMSB_S1ZE(R4) (RO); Set value in field 
(SP)+7R 3 "Ge 


60$ 
RO,50$ 
NDF ,CMDSW 
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ma a a ak a a a a at a at a ts = ss ss — — — — = = = — — — — — > — — — — 2 ss — - 


t completion status 
; Low value Limit 
; Success, return 


SYSBOOCMD 


<-W-Value set to max imum> 


3; and return 


<-W-Value set to minimum> 
<-E-Parameter is not numeric type> 


parameter descriptor 


3 
( 


1 
2 


) 
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| SYSGENCMD = Command parsing for SYSGEN 16-SEP-19 :08:07 VAX/VMS Macro v04-00 Pa 3 
tae) BOOSSET VALUE - Store parameter value 4-$ sat} 90:98: 9 BOOTS.SRCJSYSBOOCMD .MAR; 1 pee 3 


f 
| 
| : 
D 
| 1606 OF 
1 oD 
| 0079028 Br pp 
9 
04 
16 a6 OOF 
1 oD 
007¢9030 e d 
OF 


4 3 o1FF 3 SYSGENCMD 
D PUSHAB PRMST_NAME(R4) ; Address of parameter name 
D § PUSHL #1 ; Number of FAO param's 
D 6 PUSHL C1568 _SE THAR ; Error status 
E BRB 708 
: 5 508: RET 
E 60$: PUSHAB PRMST_NAME(R4) 3; Address of pereneter name 
E PUSHL #1 3; Number of FAO param's 
: pent #SYSGS$_SETMIN ; Error status 
16 AG F 65$ PUSHAB PRMST_NAME(R4) ; Address of parameter name 
1 oD F PUSHL #1 ; Number of FAO param's 
OO7C8112 BF DD F PUSHL #SYSG$_NOTASCII ; Error status 
* GF 3 4 F 70$ CALLS # G°LTBSSIGNAL : Signal 
0 1 pY MOVL ass NORMAL ,RO ; Set success 
RET ; and return 


° 
z 
oOo 


MWOMMMMMMNOAAWIS PUWVOO PP PP PPP SSS ro EOS Oem 

aaa ai a a at a od = = 8 a 8 =“ a 8 8 + 2 4 2 

TU ah Ak tek tek tek ek ek tal ek ek el el tel Sl tl tel al dt tl tlt tek ek ek et edt et et ot dt et ot ok et et ak et et et et et et et et 
(C9 CD CS COD CD CD CD CD OD SI NI SI NINN NNN NOOO Foe 


4 
§ 0; 
3 1; Set to default value 
co : BOOSSETDEF : ; 
OOF C C 4 ~ WORD “MCR2,R3,R4,R5,R6,R7> 3 
54 20 aC 00 O0CO 5 MOVL  TPASL PARAM(APS ,R& ; Get address of parameter block 
10 C1 § BBS #PRMSU_ASCII,- 3 Ascii parameter? 
08 10 A4 C1 PRMSL_FLAGS (94) , 10S ; If BS yes 
1C AC 04 AG C1 8 MOVL PRMSL DEFAULT(R4) , TPASL_NUMBER ( ); Set default as value 
FF SF 1 C1 34 RW BOOSSETVALUE+ ; Call routine to set the value 
14 AC 04 AG c1 10$: MOVAB PRMSL_DEFAULT(R4), TPASL_TOKENPTR(AP) ; Set ptr to default string 
2 14 AG GA C 9 MOVZBL PRMSB_SIZE(R4),R4 ; Get size in bits 
10 AC 4 FD 8F 78 C 38 ASHL #-3,R2, TPASL TOKENCNT (APS; Set size in bytes 
09" 11 ¢ 93 BRB BOO$sETASCIIF2 : Call routine to set the default string 
Cc 95 ; 
: 38 ; Set acsii parameter to all blanks 
C 98 BOOSSE TBLANK : 
OOF C C ~ WORD “M<CR2,R3,R4,R5,R6,R7> ; 
10 AC 04 OC 00 CLRL TPASL. TOKENCNT (APS ; Set string count zero (null string) 
02° 11 ¢ 3} BRB BOOSSETASCI1+2 3; join common code 


ee ES 


BOOSSETASCE] = Aotion sontine to set ASC ‘Lasepatone Seiberey faaove smeSsesbocceo.mans1 20? 33, 


} -SBTTL BOOSSETASCII = Action routine to set ASCII parameter type 
Input Parameters: 
TPASL_PARAM(AP) = Address of ytoess y descriptor 
TPASL_TOKENCNT(AP) = Length of parsed string 
TPASL_TOKENPTR(AP) = Address of parsed string 


CRP, poreneceres 
© poreseter is qheched to ensure it is ASCII type, then Length 
of the parsed string is compared to size of parameter. If no 
error, then parameter is set to new string. 


BOOSSETASCII:: 
.WORD 


“M<CR2,R3,R4,R5,R6,R7> 


BBSS #EXESV_WRITESYSPARAMS,- ; Set an value => write current needed 
G*EXESGL_DYNAMIC_FLAGS, 18; 


oo booooee'er | 


ss 
bod 


BBCC #TPASV_BLANKS, TPASL -OPTIONS (AP) , 2$; Make blanks no penger significan 
TPASL _PARAM(AP), Get address of parameter block 

#PRMSO_ASCII,PRMSL _FLAGSIRG) * 

$ : If set, then ASCII type 


~m 
A 
a2 

< 
rt 


0$ 
panes si E(R6) ,R7 Get size (in bits) 


w 
bad 
noe Bo 
=< 
cr 
@ 
r 


WF Of -OF Owen 


4 
4 
4 
4 
57 : 
57 57 FD &F ; - 3; Convert size from bit to byte count 
57-10 aC 5 CMPL TPASL_TOKENCNT(AP),R7 ; Compare with parsed string size 
B 6 BLEQU 108 3 if LeQu, then f 
00 31 6 BRwW 80$ 3 tise string too Si, 
01 OD $8 10$: PUSHL ale 3; Assume success 
wee Be 6 SUBL 3; Make room for ecteverd buffer on stack 
53 14 aC OD 68 MOVL Trae TOKENPTR(AP) R3; Get address of t 
4 10 aC 8 of MOVL Teast st 9 ae ie 3 get cons of toke 
63 54 3 3 (R3) R7,(SP) ; valve on oteck temporarily 
EF : 7 BS at nosy. NOCHECK® BOOSGL_ cnoOPY. O$ ; If checks disabled, branch 
08 Moe 6E D 1 CMPCS (SP). PD -PRMSL AMIN(RG N(R6),-; Compare min value with parsed value 
1€ BGEQ ; Branch if input is greater 
98 A6 2c MOVC oe grant MIN RO ee sp) : Set min value 


PRASL OMI ty (R6) 


6E ; 08 
0 AE 4 Ind error 
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DPD PSII Be BS BB BBE ENA. AI AAI I POPOPOPNPPINPYD 2? OO 
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Ff 
A6 2D 39 20$ CMPCS #4,PRMSL_MAX(R6), C l ith d l 
: - 5 are max value with parsed value 
6E gs OC A6 9D PRASL MRAR(RG 6),R7. (SP) 3 _ ° 
ge 1€ A peeoy 32° ; Branch if input is greater 
9c A6 2c A vc X(R6),- 3; Set max value 
6E of A6 A PRase Meir taes R7.( (SP) 3 
OAE 04 AB CLRL 16(SPT : Ind error 
50 $8 0 at 30$: MOVL PRMSL_ADDR(R6) ne ; Get address pereneyer 
50 Q0000000°EFS 8 MOVAB BO0SA~SYSPARAMCR 3-n0 ; Add present base of parameters 
50 B § 89 SUBL £9008 SYSPARAM, ; And suptract Link=-time base 
E 7? co MOVCS R7,(SPT,(RO) ; Set value in system 
: 10 ¢ C4 ADDL #16,SP : Remove value from stack 
8 p (7 MOVL (SPS+ RO ; Get status 
CA BLSS 60$ : If neg, value set to min 
0p 50 =««éEB ef BLBS RO,50$ ; If LBS, success 
CF 


IF NDF , CMDSW ; SYSBOOCMD 
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vousb0e SRSETASCEL = Ation sostine to set ASC Sasepctone Seibesey Lasovesmesesuncce mans? 


x 
3 
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IF NDF ,CMDSW ; SYSBOOCMD 


<-E-Specified string is too long> 


fF 
ft <-W-Value set to max imum> 
' 288: ner 3 return 
fF : * ‘ <-W-Value set to minimum> 
tH RE $ 
ect iff 3; SYSGENCMD 
16 AG) «OOF )=«COOCCE PUSHAB PRMST_NAME(R4) z Address of parameter name 
1 oD be PUSHL #1 3; Number of FAO param's 
+f PUSHL C5760 SE THAR 3; Error status 
CDA ene 7 
04 : : 508 E 
9 OC 60$ PUSHAB PRMST_NAME(R4) ; Address of parameter name 
DD OC PUSHL #1 ; Number of FAO param's 
PB OE 70S: CMCS FRG TOSSTONAL BA gcse 
: 3 a 
0 1 00 F ts MOVL 758%. NORMAL “RO ; Sef success 
: 3; and return 
C 
C 
C 
C 
Cc 
Cc 
Cc 


WAHAAHAHAAMMMMNOVIOSO 


3 


OCF MSG <-E-Parameter is not ASCII type> 
oH RET 
ace o1FF 3; SYSGENCMD 
' 
OCF ; 80$: 
OO7CB11A of DD OCF PUSHL #SYSG$_STRTOOLNG ; Error status 
* GF 1 FB OCF ; CALLS 6) ,G°LTBSSIGNAL 3 Output it 


3 


PUSHAB  PRIST_NAME(R4) 


PUSHL #SYSG$_NOTASCI! 
CALLS . gO LTBSSIGNAL 


Address of parameter name 
FAO arg count 

Error status 

Output it 


16 af 4 Z 
soon? HBR 
We 


LEARANLS SSLEAEANLESSISAEAN AS SAVE AF ANI SSSISST 
@ o 
oOo m 
bed 
s 
aes z 
mo wm 
[3] -_ 


a a a 4 4 > bs 2 as as 5 5 as as a es ss 4 a a ts os 


SAAS 
oO 

oo 
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| 007¢9028 
16 “ 
zai fl 
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cs 


: Input Parameters 
: TPASL * PARAMETER (AP) - Address of 


D16 1610 
Di6 1611 ; 
D1 1616 
Bie tela 
D16 1818 BOOSSHOVALUE : 
003¢ Dt 1616 .WORD “M<R2,R3,R4,R5> 
Dt 1618 3 Output header 
10 «€1 + i ° “IF stacey #BOOCMD$V_TERMINAL,- 
18 00000000'EF DIA ig ; BOOSGL .CMBOPT, 18 , 
p 16 ; -ENDC 
90000000'EF FOSE CFS ODem 1696 Moves SOVHOR RIOSAB_ BUFFER 
00000000'EF  O009E B&F 80 D ' 16 5 MOV BSDVADRLEN, misc. OUTLEN ; 
F2C8" 30 Op 3 16 8 BSBW RIOSOUTPUT_LIN 
54 20 AC DO 0D38 1883 10$ MOVL TPASL_PARAM(AP) ,R4 
FBE6 30 Op3¢ 1631 BSBW  BO0$SROWV 
04 OD3F 163¢ RET 
0040 163 


— 


7 
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SYSGENCMD = Command parsing for SYSGEN 16-SEP-1984 :08:07 VAX/VMS Macro v04-00 
Mita BOOSSHOVALUE = Artion routine to show si 4=SEP-1984 90:08:84 BOOTS. SRC JSYSBOOCMD.MAR; 1 


-SBTTL BOOSSHOVALUE = Action routine to show single value 


parameter block 


SYSGEN Only 


: Move in ore one 
; Set (= 
; Output line 


; Get address of parameter block 
: Show value 
; Return with BOOSSHOWV status 


Output header to terminals only 


Pa 


ge 


3 
( 


111 

SYSGENCMD Command parsing for SYSGEN en-3ee- -1984 8:07 VAX/VMS Macro v04- Pe 

yOu BOOSSHOALL - Action routine to show all ae tp ¢ 98: 88 ay BOOTS.SRC SPsboOCaD MAR: 1 = i$, 
A 


: Loop through all parameters 
10$: STL (R4) 
BE 5 


QL 0$ 
BBS #PRMSV_ALL,RS,20$ 
BITL  R5,PRMSL_FLAGS(R4) 


Check for end of List 
yes, done 

Branch if SHOW/ALL 

Is this one to output? 


> 
Se 
ee): ee i 


Soooooococoo 
h-hh] 
>rrrro 
“3oouno 


pu 
ou 
wna 
Tank 
om—o 
Sete Se Ge 


os 16 ££ -SBTTL BOOSSHOALL = Action routine to show all parameter values 
| D460 «(16 > : Input Parameters: 
D460 1638; (A Pointer to the TPARSE table 
| D40 1639 ; TPASL_PARAM(AP) The mask of acceptable types 
D40 1640 ; Output Parameters: 
+ 190) : ALL parameters except special parameters are displayed. 
D4 1808 BOOSSHOALL: ; 
OOF C + 1808 ~ WORD *M<R2,R3,R4,R5,R6,R7> : 
+ 1946 IF DF ,CMDSW 3; SYSGEN ONLY 
10 €1 OD4 1648 BBC #BOOCMD$V_TERMINAL,=- 
09 eooseo0n "Ee - roe? + eH nn nat +5 CMBOPT, 3 3 an tormtnet.. , 
; r 
00000000°GF 62 «FB obec 1681 CALLS #2.G*SCRSERASE _PAGE ssa rts Migtein -atee 
gad Hee 
909 1654 : Format "Parameters in use message" 
0053 1656 © SFAO_S CTRSTR = CTR_PARINUSE,- 
0053 1657 OUTLEN = RIOSGW_OUTLEN,- 
$033 1658 OUTBUF = RIOSAB— OUTBUF .- 
0053 1659 1 = BOOSGL_PARINUS 
ssa oP Bes musky gnbbse-panaust 
eT a Bee pu HeseaStuEe 
00000000'GF 04 4 9068 CALLS #$$T2,G*SYSSFAO 
F28D" 30 OD 1660 BSBW RIOSOUTPUT _LINE 
0D73 +1661 
gre tebe <tc 
OO9E 8F 28 0073 1664 MOVC3 #SDVHDRLEN,- 
00000000 ‘EF F8EB CF 0D7 1665 SOVHOR, ROSaB UFFER : ore, in eering 
00000000" EF OO9E 8F 14 OD7F 1208 MOVW WSDVHDRLEN, ni0scu _OUTLEN : Set len 
F275° poRe 1902 BSBW RIOSOUTPUT_LIN 3 Output =. 
3 1992 IF DF ,CMDSW 3; SYSGEN ONLY 
10 €1 OD8B 1670 BBC #BOOCHDSY TERMINAL ,- 
0B aeaeecedl | - po8e ! 1 suns BOOSGL_CMBOPT,7$ 3 if terminal, tte 
3 use on in 
3 OD 44) 1 § PUSHL a 3; and aR, ony the bottom portion 
00000000 ' GF 2 FB 44 } : 78: CALLS #2,G*SCRSSET_SCROLL : and setup a scrolling region 
44 : § -ENDC 
54 oppoo0ge "er 43 1 8 MOVAB BOOSA_PRMBLK,R4 : Set starting parameter plesk address 
5 20 AC OD : 4 MOVL TPASL “PARAM (AP) oR5 3; Set mask of acceptable types 
; 1 
1688 
1684 
1685 
1686 
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$y NCRD ~ arsing for SYSGEN 1 Pe} 7 ro v04-00 P 
 yOe BosssnoarL Action routine to show all a 138 98: 88: Yeoors: §SYSBOOCMD.MAR; 1 7 
BEQL 408 : No, tr 
208: BBC SPEC the ; {es is rei special parameter? 
Parse FL LAGS (RAS, 0$ ; Branc h if not 

: BY sos BBC #PRMST_SPEC IAL,A5,408 s sonra - branch if unasked for 

1 3 “«BSBW. =: BOOS SHOW : = bles values 

1695 408: MOVAB = PRMSC_LENGTH(R4G) ,R4 : Next parameter block 

1694 BRB 10$ Fs 

1695 50S 

1098 

i 3 - tog #BOOCMDSV_TERM 

1 38 go0scL. CMOOPT 1,6 408 ose” : If terminal 

1 PUSHL 3; Use only 4 lines 

17 PUSHL ; and scroll only the bottom portion 

Ve § 608 CALLS Pee Soe ; and setup a scrolling region 

1704 .ENDC 

1705 RET 3 


Kk 1 
SY *0 rsing for SYSGEN 16-SEP-19 7 VAX/VMS o v04-00 i 
vOe 00 BOOSSHOALL Ret? Acted on routine to show all g: SEp- 198 98: 88: 9 BOOTS. SRC SYSBOOCRD.MAR; 1 — i$, 
0D 3 
+4 : Set name of startup command file 
DD BOOSSETSTART: 
OOF C + . -WORD “M<R2,R3,R4,R5,R6,R7> 
DOOD0000'BF 4 =CéE2 OF 171 BBSS XESV_WRITESYSPARAMS,- ; Set startup name => write t needed 
00 oe DES 1 - erene “DYNAMIC_FLAGS, 18; ef ep chet n penton 
$ 
56 00000000' ee 1 1 MOV L“EXESGT_STARTUP ,R6 ; Point to slot for startup file name 
F 171 CLAL 3; Assume error 
00000000 ° EF Ff H fF Vt CmPB ‘ 1,B800$GB_F ILELEN ; Check for fit 
01 4 19] pare : Continue if tegat size 
50 ‘er 9A ODFE 1721 108 MOVZBL BOOSGB FILELEN,RO : Get count 
4 05 17 ; MOVB RO; a80 ; Set count for string 
66 00000000'FF § 08 17 Movc3 , “3800864 FILEADDR,(R6); Set file n 
50 1 C 10 1726 MOVZWL #1,R0 3 Return success indication 
‘iim = : 
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16-SEP-19 :08:07 VAX/VMS Macro v04-00 
Action routine to show all ya at tS 98:08:94 BOOTS. SRCISYSBOOCMD.MAR: 1 
if NDF ,CMDSW ; SYSBOOCMD ONLY 


-SBTTL BOOSMSGOUT = Output message 


: Calling Sequence: 
3 "Esau OOSMSGOUT 
¢ : -ASCIZ message string 

B00SMSGoUT: : ; 
CLRO =(SP) ; Null read Sut rer 
Pus 8(SP) ; Address of string 
crt #3,.* READPROMPT 3 Oyteut string 
LO a] ,a(SP)+ 3; Find end of string 
MOVL #1,R ; Set success code 
JMp 1¢R1) ; Return to caller 


a 


This routine is in RMSCONIO for SYSGEN, is used here to map SYSBOOT 
c 


i 
alls to this routine into calls to BOOSREADPROMPT. 


PUP PSSST B= BB EN 
WONA UE WN $0 OONOA UF Wn OO 


; Inputs: 
3 RIOSGW_OUTLEN = Length of pate to output 
3 RIOSAB_BUFFER = buffer to outpu 
RIOSOUTPUT_LINE:: 
mova R1,-(SP) 3; Save R1,R2 
MOVZWL RIOSGW_OUTLEN,R1 : Set Length 
MOVAB Rigsae FFER,R2 ; Set address 
MOVAB (R2)CRT),R1 3; Set address of end of strin 
MOVL a*x OAOD, (R1) ; Set CR, LF, zero byte at en 
6 CLROQ (SP) ; Null read buffer 
6¢ PUSHL pi ; Address of string 
o7 CALLS #5,L“*BOOSREADPROMPT ; Output string 
65 mova (SP)+,R1 3; Restore R1,R2 


; Return 
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DUMMY COMMAND ROUTINES FOR COMMANDS NOT IN SYSBOOT 


Null entry mask 


0 t 
SG re ates error> SYSBOOT error message 


-ENDC ; End of SYSBOOT conditional code 
END 3 
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CONUNI 
pooee Dene ore set 


B00$00 
BOOSF I 
BOOSF I 
B00$GB 
BOO$GE 
B00$G1 
BOOSGL 
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eeeeeene 
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eeenanee 
seeenene 
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senneeeee 
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gecencene 
geeeeeee 
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seeenaee 
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geeeeene 
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geeneene 
geenreaere 
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00000800 
eteeceeee 
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4-SEP-19 


SSIGNAL 
TPARSE 
$_SYNTAXERR 
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TION 
STS 
MSCP"PACKET 
MSCP"PRIORITY 
f A 


m x 
PRMSL_MIN 
PRMSM_ACP 
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geeeeeese 
geaeeree 


DDDDBDVAAADDAD 
>< De DE OK OK OK OK OE OE OE OE OK 
MNRNO 


a 


geeeeene 
geeeeeee 
RRRRRREE 


oooooc[eo 
COOCOCOOSVDOOSOOSOSOSOSOOSSSSSCOSOOO COOCOOO 


MRNA AMMA MNNMNNNNNINNNNNINIAAO& 


SOOoOooooooooooooooooooococ“ecoo 


OOoOooooooooooooooooooSo 


OC es— SEE 


c— 


B 12 
-SEP- :08: 4- Page 4 
eer homed saree fe MEREPCIRES QUBENT WASSYESMRSGRSAISERE aun "OP 1 
| 
PRISM = SHRMBXMAX 745 R i 
PAMSA-CLUSTER 7 6 Hs 0090587 R 
PRMSM_DYNAMIC . | RMA © 0001 
PRMSM_ JBC - sarey : 29009 0 RG 03 
PRMSM-LGI “ SYMBOL 00000F6 R 
PRMSM_ MAJOR = 0 : SYSSFAO RRARRAAE x 88 
“ee = 9000080 SYSGSLOAD_TT_STR eeeeenee 
MSM_POQL - . KRaw = 007C80F 
PRMSM_RMS = 00 SYSG$_NOP = 007811 
PRMSM_SCS = 00004000 sveeeompr Asch = 007C90 
PRMSM_ SPECIAL = 000 4 37368. THIN 2 rEg SO 
evs e 00 4 SYSG$_SE . Be ocE : 
PRMSM~SYSGEN = 90 04 SYSG$_STRTOOLNG > 007CB09A 
PRRST NAME = 90000016 TERRIRALCRD. a90603e5 R 02 
~ = 00000026 TPASB_CHAR ° 
PRMBVZALL : Beste TPAte= cunt G0 = 90000026 
PRMSV-ASCI1 = 00000010 TPASL“EOUNT = 00000000 
PRMSV_DYNAMIC = 00000000 ae ge = 0000001C 
ban SPECIAL * 330080 4g, EARLIER : SR8iE 
READCMD 00000705 R 06 TPASLIPARAM = boottese 
READL INE 00000713 R 06 ha ee Dd fas 9S = 0000000C 
RELOADCAD D00008s¢ ROD TPASL-TORENCNT = 90000016 
ohne BUFFER eereeeee KX 06 TPASL_TOKENPTR . 4 4 
RIOSGW-OUTLEN teeeeeee XK 06 hey oN et = 90000000 
1OSOUTPUT LINE teeeerer§ XY 06 ht a gee = Q00001EE 
SAVE _ TODCBASE 90000004 R (0 hay Mg = 000001ED 
pe b+ PAGE eenerere KX 06 ey “A 44 
SCTRLSTR 00000621 R 06 TPAS_D = 000001F7 
SDVHDRLEN = Q000009E 2 PAS"FAIL = FFFFFFFE 
SELECTLIST Soooosee RCO PAS_FILESPEC = OOOOOIEA 
SEPARATOR popes ROS aru = 000001F5 
SE TOUTPUT oo00010C ROD PASCIDENT = 0000016 
SETSPEC 90000065 R 0 TPAS-KEYWOR = 000001F6 
Ab tn eg eed : une 
SHARE CMDOPT 0000810 a4 a Se = 000001FO 
oe 00001 4 fos TPAS—SUBXPR = 09000178 
SHOSWITCH 300995 gR 03 hae Hh 2 OOO1EB 
SHOWCONOPT 9000870 R USEACT O6o 35 R 0 
SHOWCON_LOOP 0000056F R = 0 ttt 000 o 44R 0 
SHOWONE ~ 4544 USEDEF 0000988 Ro 
SHOW UNIBUS ee ae ALUE Q0002BA R 0 
SHRCEF CNT 000073) R WRTACT 0900 13. R 0 
SHRCEFMAX 0000749 R URTCHD QOO0SFT R 
SHRGBL CNT 485 eS RTCUR 00000609 R =O 
SHRGBLMAX 0000741 R e 
SHRMBXCNT 0000739 R 
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Psect synopsis ‘ t23Ep-19 4 38:06:54 taoors. sre SYSBOOCMD .MAR ; 1 es (3) 
tem ecwmeocnammaasara t 
! Psect synopsis ! 
¢nreecmeecreen eso ocnn $+ 
PSECT name Allocation PSECT No. Attributes 
. 8 . ( of ° ( 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD WNOWRT NOVEC BYTE 
$ABS 0 ( ») ( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
ob jess tates 0 4 65 ( 1893.) ¢ ( §°} PIC USR CON REL LCL SHR EXE RD WNOWRT NOVEC BYTE 
_LIBSKEYO QOOOODEA (¢ 34.) ( ) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC WORD 
LIBSKEY1$ : 4 9 4 ( 17:3 4 ( 2°} PIC USR CON REL LCL SHR EXE NOWRT NOVEC WORD 
RONPAGED_DATA ( 6.) 5 ( -) NOPIC USR CON’ REL LCL NOSHR NOEXE RD WRT NOVEC QUAD 
SYSBOOCMB OOOE14 ( 3604.) 06 ( 6.) NOPIC USR CON REL LCL NOSHR’- EXE D WRT NOVEC LONG 
decent mann reo rene cc eee eee aay 
; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 :00:00.10 00:00:01.19 
processing 111 0:00:00.81 0:00:05.59 
Pass 1193 0:01:28.43 0:02:43.16 
Symbol table sort 0 0:00: 4°%8 8 88:8 -50 
Pass 2 514 He 10 0:00:30.89 
Symbol table output 44 0:0 08-38 0:00:00.77 
Psect synopsis output 6 00:00:00.0 0:00:00.11 
Cross-reference output 0 Bo? B28 +BY 00:00:00.00 
Assembler run totals 1899 00:01:50.76 00:03:25.21 


The york ing set Limit was 2000 pages. 

475517 bytes (929 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1240 non-local and 84 Local symbols. 
Les source lines were read in Pass 1, proguc ing! object records in Pass 2. 


0 pages of virtual memory were used to define macros. 
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Macro library statistics ! 


: 
beer ccmo nen es eo ewe roe meena + 


Macro library name Macros defined 
a S5$DUA :(BOOTS.OBJJBOOTS.MLB; 1 1 
“$255$DUA28:(SYS.OBJJLIB.MLB; 1 5 
$255$DUA28:(SYSLIBJSTARLET.MLB;2 13 
TOTALS (all Libraries) 19 


1365 GETS were required to define 19 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SYSGENCMD/OBJ=OBJ$:SYSGENCMD MSRC$:CMDSW/UPDATE=(ENHS: CMDSW) +MSRC$: SYSBOOCMD/UPDATE=(ENHS$: SYSBOOCMD) +EXECML$/LIB+L IBS 
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